Найти максимальное и минимальное число в массиве - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

9   голосов , оценка 4 из 5
Похожие ответы