Vova_1805Среда Visual Basic Visial STUDIO’2010 Professional
в массиве 11 ЦЕЛЫХ ЧИСЕЛ, каждое из которых > 0
Выбрать 3 наибольших и их вывести в порядке убывания.

Приведенный код выводит 100, 13 и 11, а должно быть 100, 13 и 12
авторDim A(11) As Integer
A = {100, 6, 12, 5, 2, 11, 3, 1, 4, 9, 13}")
Dim max1 As Integer
Dim max2 As Integer
Dim max3 As Integer
'max1 = A(0) ' присваиваю значение 0-го элемента массива
max1 = 0
max2 = 0
max3 = 0
For i% = 0 To 10
If A(i%) > max1 Then
max1 = A(i%)
i% += 1
Continue For
ElseIf A(i%) > max2 Then
max2 = A(i%)
i% += 1
Continue For
ElseIf A(i%) > max3 Then
max3 = A(i%)
End If
Next i%
СПАСИБО.