Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100 - QBasic

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

Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100. Определить количество элементов N, удовлетворяющих условию 25<A(I)<75, MIN среди них и его индекс M. Вывести L, N, MIN, M. Можно подробнее пожалуйста)

Решение задачи: «Массив А(20) заполнить целыми случайными числами из диапазона от 1 до 100»

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

DIM A(1 TO 20) AS LONG
RANDOMIZE TIMER
CLS
FOR i = 1 TO 20
   A(i) = INT(RND * 100 + 1)
   IF A(i) > 25 AND A(i) < 75 THEN
     N = N + 1
     IF MIN = 0 OR A(i) < MIN THEN MIN = A(i): M = i
   END IF
   PRINT A(i);
NEXT i
PRINT
IF N > 0 THEN
  PRINT "N ="; N
  PRINT "MIN ="; MIN
  PRINT "M = "; M
ELSE
  PRINT "Net elementov 25 < A(i) < 75"
END IF

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

Создается массив A(20) типа LONG, который будет заполнен целыми случайными числами от 1 до 100.
Используется функция RANDOMIZE TIMER для инициализации генератора случайных чисел.
Цикл FOR i = 1 TO 20 используется для заполнения массива A(i) случайными числами.
Каждое случайное число A(i) вычисляется как INT(RND * 100 + 1), где RND - это случайное число от 0 до 1, умноженное на 100 и округленное до ближайшего целого числа.
Внутри цикла проверяется, если A(i) больше 25 и меньше 75, то переменная N увеличивается на 1.
Если MIN равно 0 или A(i) меньше MIN, то MIN присваивается значение A(i), а M - значение i.
После завершения цикла выводятся все значения массива A(i).
Если N больше 0, то выводятся значения N, MIN и M.
Если N равно 0, то выводится сообщение Net elementov 25 < A(i) < 75.