Найти максимальный элемент массива и его индекс - QBasic

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

1.Дан массив R(N,M).построить вектор из элементов матрицы,удовлетворяющей условию R(I,J)<C,где C-константа.В полученном векторе найти максимальный элемент и его индекс. 2.Дан массив R(N,M).найти все его стоки,произведение элементов которых положительно,и напечатать их номера,подсчитать общее количество таких строк.найти максимальное значение из полученных произведений.

Решение задачи: «Найти максимальный элемент массива и его индекс»

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

CLS
INPUT "KOLI4ESTVO STROK V MASSIVE ="; N
INPUT "KOLI4ESTVO STOLBCOV V MASSIVE ="; M
DIM R(N, M)
FOR I = 1 TO N
 FOR J = 1 TO M
INPUT "VVEDITE ELEMENT MASSIVA:"; R(I, J)
NEXT
NEXT
PRINT "MASSIV:"
FOR I = 1 TO N
 FOR J = 1 TO M
PRINT R(I, J);
NEXT
PRINT
NEXT
DIM P(N)
FOR I = 1 TO N
P(I) = 1
NEXT
PRINT "STROKI,PROIZVEDENIE KOTORIH POLOJITELNO:"
FOR I = 1 TO N
 FOR J = 1 TO M
P(I) = P(I) * R(I, J)
NEXT
IF P(I) > 0 THEN PRINT I: S = S + 1
NEXT
PRINT "KOLI4ESTVO ETIH STROK ="; S
MAX = P(1)
FOR I = 1 TO N - 1
IF MAX < P(I + 1) THEN MAX = P(I + 1)
NEXT
PRINT "MAKSIMALNOE PROIZVEDENIE="; MAX
END

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

В первой строке кода пользователю предлагается ввести количество строк и столбцов массива.
Затем две строки используются для ввода элементов массива.
Далее выводится сам массив.
Следующие две строки кода инициализируют переменную P, которая будет использоваться для хранения произведений элементов массива.
Затем выводится информация о строках, произведение которых положительно.
Переменная S используется для подсчета количества таких строк.
Максимальное значение P ищется в цикле, начиная со второй строки.
Наконец, выводится максимальное произведение.