Одномерные/двумерные массивы - QBasic

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

Помогите решить задачи по одномерным/двумерным массивам. Заранее премного благодарен! Задание 1 "Одномерные массивы". Дан массив из 20 элементов . Найти максимальное из чисел, попавших в заданный интервал [p,q] и определить его номер. Результат распечатать в виде: P= Q= MAX= imax= Задание 2 "Двумерный массив(матрица)". Дана квадратная матрица МхМ. Найти произведение элементов больших 0. Составить вектор, составленный из средних арифметических значений каждой строки матрицы. Еще раз большое спасибо, за потраченное время

Решение задачи: «Одномерные/двумерные массивы»

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

p = 1
FOR i=1 TO 20
    sum = 0
    FOR j=1 TO 20
        IF m(i,j)>0 THEN p=p*m(i,j)
        sum = sum + m(i,j)
    NEXT j
    PRINT i, sum/20
NEXT i
 
PRINT "proizvedenie=", p

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

В этом коде:

p - это переменная, которая инициализируется значением 1.
Затем происходит два цикла FOR. Первый цикл идет от 1 до 20 и выполняет следующие действия:
- sum инициализируется значением 0. Это будет использоваться для хранения суммы элементов массива m(i,j).
- Второй цикл FOR идет от 1 до 20 и выполняет следующие действия:
  - Если m(i,j) больше 0, то p умножается на m(i,j). Это означает, что p будет увеличиваться только для тех элементов массива m(i,j), которые больше 0.
  - sum увеличивается на m(i,j). Это означает, что сумма всех элементов массива m(i,j) будет храниться в переменной sum.
После завершения второго цикла FOR, выводится значение sum (которое представляет собой сумму всех элементов массива m(i,j)) и индекс i (который представляет собой номер строки в массиве m(i,j)).
После завершения первого цикла FOR, выводится значение p, которое представляет собой произведение всех элементов массива m(i,j), которые больше 0.
Наконец, выводится значение proizvedenie, которое, вероятно, представляет собой результат какого-то другого вычисления.