Найти сумму всех элементов массива вещественных чисел, больших заданного числа - QBasic

найти сумму всех элементов массива вещественных чисел, больших заданного числа.

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

for i=1 to n
if a(i)>k then s=s+a(i)
next

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

Задается значение переменной n - количество элементов в массиве a.
Задается значение переменной k - число, больше которого должны быть все элементы массива a, участвующие в суммировании.
Задается значение переменной s - сумма элементов массива a, которые больше числа k.
Выполняется цикл for от 1 до n.
Внутри цикла проверяется условие if a(i)>k - если элемент массива a с индексом i больше числа k, то он прибавляется к переменной s.
После выполнения цикла for переменной s будет содержать искомую сумму.