Решаем задачи Абрамян на 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()
        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

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

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

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