Определить максимальное, минимальное и среднее значения в массиве случайных чисел - 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

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


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

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

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