Определить максимальное, минимальное и среднее значения в массиве случайных чисел - VB (61733)
Формулировка задачи:
Помогите пожалуйста!!!
Количество элементов массива 20.
Определить максимальное, минимальное и среднее значения в массиве случайных чисел.
Решение задачи: «Определить максимальное, минимальное и среднее значения в массиве случайных чисел»
textual
Листинг программы
Private Sub Command1_Click()
Dim A(19)
For i = 0 To 19
A(i) = InputBox("Введите 20 чисел ")
Next
Min = A(0)
For i = 0 To 19
If A(i) < Min Then
Min = A(i)
End If
Next
Max = A(0)
For i = 0 To 19
If A(i) > Max Then
Max = A(i)
End If
Next
Print "Min="; Min
Print "Max="; Max
End Sub