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