Как сформировать и вывести на печать массив к(20), элементы которого принадлежат интервалу [-15;40] - QBasic

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

Сформировать и вывести на печать массив к(20), элементы которого принадлежат интервалу [-15;40]. Найти наименьший элемент среди положительных. Сформировать новый массив м из элементов массива к кратных пяти.

Решение задачи: «Как сформировать и вывести на печать массив к(20), элементы которого принадлежат интервалу [-15;40]»

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

CLS
n = 20
DIM a(1 TO n), m(1 TO n), K(1 TO n)
FOR i = 1 TO n
    a(i) = INT(RND * 100) - 50
NEXT i
PRINT
j = 1
kl = 0
PRINT "Massiv K"
FOR i = 1 TO n
   IF a(i) > -15 AND a(i) < 40 THEN K(j) = a(i): j = j + 1: kl = kl + 1
NEXT i
PRINT
min = K(1)
l = 1
FOR i = 1 TO kl
PRINT K(i);
IF K(i) > 0 THEN
IF K(i) <= min THEN min = K(i)
END IF
IF K(i) MOD 5 = 0 THEN m(l) = K(i): l = l + 1: k1 = k1 + 1
NEXT i
PRINT
PRINT "Min sredi polojitelnix"; min
PRINT "Massiv M iz kratnix 5"
FOR i = 1 TO k1
PRINT m(i);
NEXT i

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

В этом коде на языке QBasic:

Создаются три массива: a(1 to n), m(1 to n), K(1 to n) с помощью команды DIM.
В цикле FOR заполняются элементы массива a случайными числами из интервала [-15;40] с помощью функции RND и оператора INT.
В цикле FOR проверяется каждый элемент массива a на принадлежность к интервалу [-15;40] с помощью условий IF. Если элемент принадлежит интервалу, он копируется в массив K, увеличивается счетчик j и kl, и выполняется проверка на кратность 5 с помощью оператора MOD.
Находится минимальное значение в массиве K с помощью цикла FOR и условия IF.
Выводится на печать массив K, а затем массив M, отсортированный по возрастанию с шагом 5.