Найти среднее арифметическое элементов массива - 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
- FOR i = 1 To 15
- S = S + Q(i)
- NEXT
- SA = S / 15
- PRINT "SA ="; SA
- Q(1) = SA
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
