Найти среднее арифметическое элементов массива - VB

Узнай цену своей работы

Формулировка задачи:

Найти среднее арифметическое элементов массива Q(15). Заменить Q(1) средним арифметическим.

Решение задачи: «Найти среднее арифметическое элементов массива»

textual
Листинг программы
Cls
Dim Q(15) As Single
RANDOMIZE TIMER
 
FOR i = 1 To 15
   Q(i) = 40 * RND
   PRINT Q(i);
NEXT 
PRINT
 
FOR i = 1 To 15
   S = S + Q(i)
NEXT 
 
SA = S / 15
PRINT "SA ="; SA
Q(1) = SA

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


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

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

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