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()
        Next

        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

        Next
        For i = 1 To N
            Console.WriteLine("{0}  : {1}", i, a(i))

        Next
        Console.ReadLine()
    End Sub

End Module

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