Определить количество элементов одномерного массива, превосходящих по величине число N - QBasic

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

Определить количество элементов одномерного массива, превосходящих по величине число N. Числа вводятся с клавиатуры.Размерность массива произвольна

Решение задачи: «Определить количество элементов одномерного массива, превосходящих по величине число N»

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

CLS
INPUT "vvedite razmer massiv"; m
INPUT "vvedite n"; n
DIM a(m)
FOR i = 1 TO m
    INPUT "vvedite element"; a(i)
NEXT
FOR i = 1 TO m
    IF a(i) > n THEN k = k + 1
NEXT
PRINT k

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

В первой строке программы на экран выводится команда «CLS», которая очищает экран.
В следующей строке пользователю предлагается ввести размер массива с помощью функции INPUT. Введённое значение сохраняется в переменной m.
Далее пользователю предлагается ввести число N с помощью функции INPUT. Введённое значение сохраняется в переменной n.
Создаётся массив a с помощью оператора DIM. Размер массива равен m.
Следующий цикл FOR запускается от 1 до m.
В теле цикла пользователю предлагается ввести элемент массива с помощью функции INPUT. Введённое значение сохраняется в соответствующем элементе массива a.
Следующий цикл FOR запускается от 1 до m.
В теле цикла проверяется условие a(i) > n. Если оно истинно, то к переменной k прибавляется единица.
После завершения второго цикла на экран выводится значение переменной k с помощью функции PRINT.