Найти среднее арифметическое значение массива. - QBasic
Формулировка задачи:
Из массива вещественных чисел T(10) выписать в новую таблицу элементы,значения которых меньше 100.
Найти их среднее арифметическое значение.
Помогите пожалуйста
Решение задачи: «Найти среднее арифметическое значение массива.»
textual
Листинг программы
- CLS
- DIM t(10)
- FOR i = 1 TO 10
- INPUT t(i)
- NEXT
- CLS
- PRINT "massiv:"
- FOR i = 1 TO 10
- PRINT t(i);
- NEXT
- PRINT "novay tablica"
- FOR i = 1 TO 10
- IF t(i) < 100 THEN PRINT t(i);: k = k + 1: s = s + t(i)
- NEXT
- PRINT "sred. znach"; s / k
Объяснение кода листинга программы
- Объявляется массив t(10) и инициализируется пустыми значениями.
- Задаётся цикл от 1 до 10, в котором пользователь вводит значения для каждого элемента массива t.
- Выполняется очистка экрана.
- Выводится сообщение
massiv:
и выводится каждый элемент массива t. - Выполняется очистка экрана.
- Выводится сообщение
novay tablica
и выводятся элементы массива t, которые меньше 100. - Выполняется очистка экрана.
- Выводится сообщение
sred. znach
и вычисляется среднее арифметическое значение массива t, которое равно сумме всех элементов, делённой на их количество.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д