Определить количество положительных элементов массива - QBasic

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

Определить количество положительных элементов массива. Элементы массива задаются датчиком случайных чисел (размерность массива произвольна)

Решение задачи: «Определить количество положительных элементов массива»

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

CLS
RANDOMIZE TIMER
INPUT "vvedite n"; n
DIM a(n)
FOR i = 1 TO n
    a(i) = INT(RND * 100) - 50
NEXT
FOR i = 1 TO n
    PRINT a(i);
NEXT
FOR i = 1 TO n
    IF a(i) > 0 THEN k = k + 1
NEXT
PRINT
PRINT "k="; k

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

CLS — очистка экрана
RANDOMIZE TIMER — установка случайного числа для повторного воспроизведения результатов
INPUTvvedite n; n — запрос на ввод числа для определения размера массива
DIM a(n) — создание массива с указанным размером
FOR i = 1 TO n — начало цикла для заполнения массива числами от -50 до 50
a(i) = INT(RND * 100) - 50 — заполнение ячейки массива случайным числом от -50 до 50
NEXT — переход к следующей итерации цикла
FOR i = 1 TO n — начало цикла для вывода содержимого массива на экран
PRINT a(i); — вывод элемента массива на экран
NEXT — переход к следующей итерации цикла
FOR i = 1 TO n — начало цикла для подсчета количества положительных чисел в массиве
IF a(i) > 0 THEN k = k + 1 — увеличение счетчика, если число в массиве больше нуля
NEXT — переход к следующей итерации цикла
PRINT — завершение работы программы и вывод на экран последнего значения счетчика
PRINTk=; k — вывод значения счетчика на экран