Найти максимальное и минимальное число в массиве - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
