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
li:contains("special"){text-style: italic;}
input:focus~label,
input:valid~label {
top: -20px;
font-size: 14px;
color: #5264AE;
}
,input:valid~label
input:focus~label {
top: -20px;
font-size: 14px;
color: #5264AE;
}