Получить одноименный массив, элементы которого - максимальные элементы соответствующих строк исходной матрицы

DEFINT A-B, I-J, M-N
OPTION BASE 1
m = 5
n = 6
DIM a(m, n)
DIM b(m)
RANDOMIZE TIMER
CLS
 
FOR i = 1 TO m
   FOR j = 1 TO n
      a(i, j) = 20 * RND - 10
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR i = 1 TO m
   b(i) = a(i, 1)
NEXT i
PRINT
FOR i = 1 TO m
   FOR j = 1 TO n
      IF a(i, j) > b(i) THEN b(i) = a(i, j)
   NEXT j
   PRINT USING "####"; b(i)
NEXT i
END

DEFINT A-C, I-J, M-N
OPTION BASE 1
m = 5
n = 6
DIM a(m, n)
DIM b(m, n)
DIM c(n)
RANDOMIZE TIMER
CLS
 
FOR i = 1 TO m
   FOR j = 1 TO n
      a(i, j) = 20 * RND - 10
      PRINT USING "####"; a(i, j);
   NEXT j
   PRINT
NEXT i
 
FOR j = 1 TO n
   c(j) = a(1, j)
NEXT j
 
PRINT
FOR j = 1 TO n
   FOR i = 1 TO m
      IF a(i, j) < c(j) THEN c(j) = a(i, j)
   NEXT i
   PRINT USING "####"; c(j);
NEXT j
PRINT
PRINT
FOR i = 1 TO m
   FOR j = 1 TO n
      b(i, j) = a(i, j) + c(j)
      PRINT USING "####"; b(i, j);
   NEXT j
   PRINT
NEXT i
END