Найти максимальный и минимальный элементы массива - VB

Формулировка задачи:

Задание: есть одномерный массив с 12 елементами, найти максимальный и минимальный элементы. Вообщем, написал код, только он не совсем верный. Если, например воожу последовательность чисел: 1,2,3,4,5,6,7,8,9,10,11,12 то он показывает, что мин=1 а мах=9 а если вводить не последовательные числа, то вроде нормально определяет, подскажите, что не так.

Private Sub Command1_Click()
Cls
Dim A(11)
For i = 0 To 11
  A(i) = InputBox("Vvedi 4islo")
Next
Max = A(0)
Min = A(0)
For i = 0 To 11
  If A(i) >= Max Then
    Max = A(i)
End If
If A(i) < Min Then
 Min = A(i)
End If
Next
Print "Max="; Max
Print "Min="; Min
End Sub

Решение задачи: «Найти максимальный и минимальный элементы массива»

textual
                            Листинг программы 
                        
                            Dim A(11) As Integer, i As Integer, max As Integer, min As Integer

Оцени полезность:

12 голосов , оценка 3.75 из 5

Похожие ответы