Найти сумму элементов матрицы - QBasic (27930)

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

Найти сумму элементов каждого столбца матрицы (n = 5; m = 6), и определить минимальную из полученных сумм. Заменить отрицательные элементы на главной диагонали, полученной суммой. Ну суммы столбов я нахожу примитивным способом, но работает..

Cls
Dim a(5,6)
For i=1 to 5: for j=1 to 6
pRINT "Введите элемент"; i; ","; j
 INPUT a(i, j)
Next j,i
S1=0: s2=0: s3=0: s4=0: s5=0: s6=0
For i=1 to 1: for j=1 to 6
 s1=s1+a(I;j)
next j;i
For i=2 to 2: for j=1 to 6
 S2=s2+a(I;j)
next j;i
For i=3  to 3: for j=1 to 6
 S3=s3+a(I;j)
next j;i
For i=4  to 4: for j=1 to 6
 S4=s4+a(I;j)
next j;i
For i=5 to 5: for j=1 to 6
 S5=s5+a(I;j)
next j;i

А вот как их все между собой пересравнить, ну чтоб опять километра кода не было...

Я не волшебник, я только учусь=)))

ну поменять через swap сделаю... наверно надо добавить мас dim s1,s2,s3,s4,s5 ?

Решение задачи: «Найти сумму элементов матрицы»

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

DIM A(5,6)
FOR I=1 TO 5: FOR J=1 TO 6
 PRINT "Введите элемент"; i; ","; j
 INPUT a(i, j)
 NEXT j, i
DIM B(5)
FOR I=1 TO 5: FOR J=1 TO 6
B(I)=B(I)+A(I,J)
NEXT j, i
MIN=B(1)
FOR I=1 TO 4
IF MIN>B(I+1) THEN MIN=B(I+1)
NEXT i
FOR I=1 TO 5: FOR J=1 TO 6
IF I=J THEN a(I,J)=MIN
NEXT j , i
PRINT "Минимальная сумма="; MIN
END

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

В этом коде:

Создается двумерный массив A размером 5x6 и заполняется пользователем.
Создается одномерный массив B размером 5 и инициализируется нулями.
В цикле суммируются элементы массива A и записываются в массив B.
Находится минимальное значение в массиве B.
В цикле элементы массива A заменяются на минимальное значение, если они равны.
Выводится сообщение с минимальной суммой.