Сформировать массив R(N) из максимальных по абсолютной величине элементов строк массива - QBasic

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

Дан массив R(N, М). Сформировать массив R(N) из максимальных по абсолютной величине элементов строк массива R, массив А(М) из минимальных элементов по столбцам напишите программу

Решение задачи: «Сформировать массив R(N) из максимальных по абсолютной величине элементов строк массива»

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

CLS
RANDOMIZE TIMER
n = 8
m = 5
DIM R(n, m) AS INTEGER
DIM A(m) AS INTEGER
DIM B(n) AS INTEGER
 
FOR i = 1 TO n
FOR j = 1 TO m
   R(i, j) = 80 * RND - 40
   PRINT USING "####"; R(i, j);
NEXT: PRINT
NEXT: PRINT
 
FOR i = 1 TO n
   max = R(i, 1)
 
   FOR j = 1 TO m
      IF ABS(max) < ABS(R(i, j)) THEN
         max = R(i, j)
      END IF
   NEXT j
 
   B(i) = max
NEXT i
 
FOR i = 1 TO n
   PRINT USING "####"; B(i);
NEXT
 
PRINT : PRINT
 
FOR j = 1 TO m
   min = R(1, j)
 
   FOR i = 1 TO n
      IF ABS(min) > ABS(R(i, j)) THEN
         min = R(i, j)
      END IF
   NEXT i
 
   A(j) = min
NEXT j
 
FOR j = 1 TO m
   PRINT USING "####"; A(j);
NEXT

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

Объявлены переменные: n, m, R(n, m), A(m), B(n)
Задаются случайные значения элементам массива R(n, m)
Находится максимальное значение элементов каждой строки массива R(n, m) и записывается в массив B(n)
Находится минимальное значение элементов каждой строки массива R(n, m) и записывается в массив A(m)
Выводятся значения массивов B(n) и A(m)