Решаем задачи Абрамян на Visual Basic. Array88

Array88. Дан массив размера $$N$$, все элементы которого, кроме последнего, упорядочены по возрастанию. Сделать массив упорядоченным, переместив последний элемент на новую позицию.

Решение:

Module Array88

Sub Main()

Dim a(10) As Integer

Dim N, i As Integer

Console.Write("N:")

N = Console.ReadLine()

Console.WriteLine("A:")

For i = 1 To N

Console.Write("{0} :", i)

a(i) = Console.ReadLine()

For i = N - 1 To 1 Step -1

If a(i) > a(i + 1) Then

a(i + 1) = a(i) + a(i + 1)

a(i) = a(i + 1) - a(i)

a(i + 1) = a(i + 1) - a(i)

End If

For i = 1 To N

Console.WriteLine("{0} : {1}", i, a(i))

Console.ReadLine()

End Sub

End Module

Задачи из раздела Array можно посмотреть здесь.

Решаем задачи Абрамян на Visual Basic. Array88

Комментарии:

Добавить комментарий Отменить ответ