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

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

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