Minmax8. Дано целое число $$N$$ и набор из $$N$$ целых чисел. Найти номера первого и последнего минимального элемента из данного набора и вывести их в указанном порядке.

Решение:

Module Minmax8
 
    Sub Main()        
        Dim i, N, Ni, Min1, Min2, Min1Num, Min2Num As Integer
        Console.Write("N:")
        N = Console.ReadLine()        
 
        For i = 1 To N
            Console.Write("{0} :", i)
            Ni = Console.ReadLine()
            If i = 1 Then
                Min1 = Ni
                Min2 = Ni
                Min1Num = i
                Min2Num = i
            End If
            If Ni < Min1 Then
                Min1 = Ni
                Min1Num = i
            End If
            If Ni <= Min2 Then
                Min2 = Ni
                Min2Num = i
            End If        
        Next
 
        Console.WriteLine("{0}  : {1}", Min1Num, Min2Num)
    End Sub
End Module

Другие задачи из раздела Minmax можно посмотреть здесь.

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  можно посмотреть здесь.