Сформировать одномерный массив из сумм каждого столбца матрицы

dim c(),x(),mini(),diag()
 
input "BBOD", n
redim c(n,n)
redim x(n)
redim mini(n)
redim diag(n)
 
for i=1 to n
for j=1 to n
input "BBOD", c(i.j)
next j
next i
 
for i=1 to n
x(i)=0
for j=1 to n
x(i)=x(i)+c(i,j)
next j
print x(i),i
next i
 
for i=1 to n
for j=1 to n
if j=i then diag(i)=c(i,j)
next j
print diag(i),i
next i
 
for j=1 to n
mini(j)=c(1,j)
for i=2 to n
if mini(j)<c(i,j) then mini(j)=c(i,j)
next i
print mini(j),j
next j

for i= 1 to n
for j= 1 to n
b(i.j)=a(j,i)
NEXT j
NEXT i

FOR i=1 TO n
diag(i)=c(i,i)
PRINT diag(i),i
NEXT i

b(i,j)=a(j,i)

dim a(5,4),min(5)
for i=1 to 5
for j=1 to 4
input"vvedite element";a(i,j)
next
next
print"matrica"
for i=1 to 5 
for j=1 to 4 
print a(i,j);' ';
next
print
next
for i=1 to 5 
min(i)=a(i,1)
for j=1 to 4
if a(i,j)<min(i) then min(i)=a(i,j)
next
next
max=min(1)
for i=2 to 5
if min(i)>max then max=min(i)
next
print max

INPUT "vvedite razmer ", n
DIM a(n, n)
FOR i = 1 TO n
FOR j = 1 TO n
INPUT "vvedite element"; a(i, j)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO n
FOR j = 1 TO n
PRINT a(i, j); ' ';
NEXT
PRINT
NEXT
max = a(1, 1)
ni = 1
nj = 1
FOR i = 2 TO n
IF a(i, i) > max THEN max = a(i, i): ni = i: nj = i
NEXT
FOR i = ni TO n - 1
FOR j = 1 TO n
a(i, j) = a(i + 1, j)
NEXT
NEXT
FOR i = 1 TO n - 1
FOR j = nj TO n - 1
a(i, j) = a(i, j + 1)
NEXT
NEXT
PRINT "novaya matrica"
FOR i = 1 TO n - 1
FOR j = 1 TO n - 1
PRINT a(i, j); ' ';
NEXT
PRINT
NEXT

DIM a(5, 4), min(5), xmin(5), ymin(5)
FOR i = 1 TO 5
FOR j = 1 TO 4
INPUT "vvedite element"; a(i, j)
NEXT
NEXT
PRINT "matrica"
FOR i = 1 TO 5
FOR j = 1 TO 4
PRINT a(i, j); ' ';
NEXT
PRINT
NEXT
FOR i = 1 TO 5
min(i) = a(i, 1)
xmin(i) = i
jmin(i) = 1
FOR j = 1 TO 4
IF a(i, j) < min(i) THEN min(i) = a(i, j): xmin(i) = i: ymin(i) = j
NEXT
NEXT
max = min(1)
xmax = xmin(1)
ymax = ymin(1)
FOR i = 2 TO 5
IF min(i) > max THEN max = min(i): xmax = xmin(i): ymax = ymin(i)
NEXT
PRINT "max="; max; " stroka="; xmax; " stolb="; ymax