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