Определить номера строк матрицы с чередующимся знаком - QBasic

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

определить номера строк матрицы, в которых знак элементов чередуется

Решение задачи: «Определить номера строк матрицы с чередующимся знаком»

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

CLS
INPUT "vvedite kolichestvo strok m"; m
INPUT "vvedite kolichestvo stolbcov n"; n
DIM a(m, n)
FOR i = 1 TO n
    FOR j = 1 TO m
        INPUT "vvedite element"; a(i, j)
    NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO m
    FOR j = 1 TO n
        PRINT a(i, j);
    NEXT
    PRINT
NEXT
PRINT STRING$(80, 196)
FOR i = 1 TO m
    f = 0
    FOR j = 2 TO n
        IF a(i, j) * a(i, j - 1) >= 0 THEN f = 1
    NEXT
    IF f = 0 THEN PRINT i
NEXT

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

В первой строке программы на экран выводится сообщение с просьбой ввести количество строк матрицы.
Вторая строка программы предлагает ввести количество столбцов матрицы.
Третья строка программы создает матрицу размером m на n и инициализирует ее нулями.
Четвертая и пятая строки программы заполняют матрицу элементами, которые вводит пользователь.
Шестая строка программы выводит на экран матрицу.
Седьмая строка программы выводит горизонтальную линию из 196 символов.
Восьмая строка программы начинает поиск строк с чередующимся знаком, для чего инициализирует счетчик f нулем.
Девятая и десятая строки программы просматривают все строки матрицы, начиная со второй, и проверяют, является ли текущий элемент положительным или отрицательным по отношению к предыдущему.
Если текущий элемент положительный или отрицательный по отношению к предыдущему, то значение счетчика f увеличивается на единицу.
Если значение счетчика f по-прежнему равно нулю, то номер текущей строки выводится на экран.