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

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

Помогите, пожалуйста с решением задачи: А) В заданном массиве A(120) определить минимальный элемент и количество элементов равных минимальному. В) Дана матрица X(NxM). Получить последовательность у1,у2, .... уn, каждый элемент который равен количеству отрицательных элементов в соответствующей строке массива.

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

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

CLS
DIM A(120) AS INTEGER
RANDOMIZE TIMER
 
FOR i = 0 TO 120
   A(i) = 60 * RND
NEXT i
 
min = 20
 
FOR i = 0 TO 120
   IF min > A(i) THEN min = A(i)
NEXT i
 
n = 0
 
FOR i = 0 TO 120
   IF A(i) = min THEN n = n + 1
NEXT i
 
PRINT "Min = "; min
PRINT "N = "; n
END

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

Объявляется массив A(120) типа INTEGER и инициализируется случайными значениями от 0 до 60 с помощью функции RND и оператора RANDOMIZE TIMER.
Переменная min инициализируется значением 20.
Цикл FOR проходит по всем элементам массива A(120) и сравнивает текущий элемент с переменной min. Если текущий элемент меньше min, то min обновляется значением текущего элемента.
Переменная n инициализируется значением 0.
Цикл FOR проходит по всем элементам массива A(120) и сравнивает каждый элемент с переменной min. Если элементы равны, то переменная n увеличивается на 1.
Выводятся значения переменных min и n с помощью функции PRINT.
Код заканчивается END.