Найти максимальное и минимальное число в массиве - VB
Формулировка задачи:
помогите решить задачу!
одномерный массив с числами от -10 до +10.
15 случайных целых чисел.
найти максимальное и минимальное число в массиве.
Решение задачи: «Найти максимальное и минимальное число в массиве»
textual
Листинг программы
Dim Arr(14) For i = 0 To 14 Arr(i) = Int(Rnd * 31 - 15) Next i Max = Arr(0) Min = Arr(0) For i = 1 To 14 If Max < Arr(i) Then Max = Arr(i) If Min > Arr(i) Then Min = Arr(i) Next i MsgBox "Max= " & Max & vbCrLf & "Min= " & Min