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

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

Доброго времени суток! Не могу написать данную лабораторную работу, т.к. не силён в программировании, может быть кто-нибудь поможет? Буду благодарен. Задана действительная матрица А размером n*m (n - число строк, m - число столбцов). Определить минимум отрицательных элементов k-ой строки. Имеется пример аналогичной задачи, но в нём нужно найти произведение всех элементов k-ой строки.

INPUT “N”;N
INPUT “M”;M
IF N <> INT(N) OR N <=0 THEN PRINT “N.V.D.”: GOTO 10
IF M <> INT(M) OR M <=0 THEN PRINT “N.V.D.”: GOTO 20
DIM A(N,M)
FOR I=1 TO N
PRINT “VVOD”;1;”-OI STROKI”;
FOR J=1 TO M
PRINT “A(“I”,”J”)=”;
INPUT A(I,J)
NEXT J
NEXT I
CLS
FOR I=1 TO N
FOR J=1 TO M
PRINT A(I,J);
NEXT J
PRINT
NEXT I
INPUT “VVEDITE NOMER STROKI”;K
P=1
FOR J=1 TO M
P=P*A(K,J)
NEXT J
PRINT “PROIZVEDENIE”;K;”STROKI=”;P
INPUT “Y/N”;X$
IF X$ = “Y” GOTO 120
END

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

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

170 P=0
180 FOR J=1 TO M
185     IF A(K,J) < P THEN
190         P = A(K,J)
195     END IF
200 NEXT J
205 IF P < 0 THEN
210     PRINT “MINIMUM”;K;”STROKI=”;P
212 ELSE
215     PRINT “V STROKE”;K;”NET OTRITSATELNYH ELEMENTOV”
218 END IF

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

В этом коде выполняется поиск минимального отрицательного элемента в k-ой строке матрицы. Вот список действий:

Переменная P инициализируется значением 0.
Начинается цикл по всем элементам k-ой строки матрицы (от элемента с индексом 1 до элемента с индексом M).
Для каждого элемента проверяется, является ли он отрицательным и меньше ли он значения переменной P. Если это так, то значение переменной P обновляется.
После завершения цикла проверяется, является ли значение переменной P отрицательным. Если это так, то выводится сообщение с указанием номера строки и значения минимального отрицательного элемента. Если нет, то выводится сообщение V STROKE с указанием номера строки и количества положительных элементов.