Найти среднее арифметическое значение массива. - QBasic

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

Из массива вещественных чисел T(10) выписать в новую таблицу элементы,значения которых меньше 100. Найти их среднее арифметическое значение. Помогите пожалуйста

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

Листинг программы

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
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
PRINT "sred. znach"; s / k

Объяснение кода листинга программы

Объявляется массив t(10) и инициализируется пустыми значениями.
Задаётся цикл от 1 до 10, в котором пользователь вводит значения для каждого элемента массива t.
Выполняется очистка экрана.
Выводится сообщение massiv: и выводится каждый элемент массива t.
Выполняется очистка экрана.
Выводится сообщение novay tablica и выводятся элементы массива t, которые меньше 100.
Выполняется очистка экрана.
Выводится сообщение sred. znach и вычисляется среднее арифметическое значение массива t, которое равно сумме всех элементов, делённой на их количество.