Eugene Chefranov

Module Module1
 
    Sub Main()
 
        Console.WriteLine("Введите восемь чисел")
        'Массив для хранения восьми чисел
        Dim nums(7) As Integer
        For i As Integer = 0 To nums.Length - 1
            Console.Write("{0}-е число: ", i + 1)
            nums(i) = Int32.Parse(Console.ReadLine())
        Next
 
        'Алгоритм сортировки
        Dim temp As Integer = nums(0)
        For i As Integer = 0 To nums.Length - 1
            For j As Integer = i + 1 To nums.Length - 1
                If nums(i) > nums(j) Then
                    temp = nums(i)
                    nums(i) = nums(j)
                    nums(j) = temp
                End If
            Next
        Next
 
        'Выводим элементы массива
        For Each i As Integer In nums
            Console.Write("{0} ", i)
        Next
 
        Console.ReadLine()
 
    End Sub
 
End Module