Кто нибудь окажите помощь, Qbasic ругается на массивы

[бедный_студент]

вот задача:

CLS
PRINT "v dvumernom massive vechestvennix chisel najti maksimalnyju summy absolutnix znachenij elementov po stolbcam"
PRINT
PRINT TAB(10);
INPUT "vvedite razmernost' massiva v kotorom N strok i M stolbcov... ", n, m
PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

DIM a(n, m)
DIM b(n)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = RND(1) * 100 - 50
NEXT j
PRINT TAB(10);
NEXT i

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i


PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

PRINT TAB(10); "summa modulej elementov v stolbtsax"
PRINT
PRINT TAB(10);
FOR i = 1 TO n
PRINT b(i);
NEXT i

когда ввожу значения компилятор ругается на неправильный индекс а у меня уже котелок совсем не варит я с этой задачкой весь вечер сижу не могу сориентироваться. условие задачи вверху кода

[Goodwin98]

а если так?

CLS
PRINT "v dvumernom massive vechestvennix chisel najti maksimalnyju summy absolutnix znachenij elementov po stolbcam"
PRINT
PRINT TAB(10);
INPUT "vvedite razmernost' massiva v kotorom N strok i M stolbcov... ", n, m
PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

DIM a(n, m)
DIM b(n)
RANDOMIZE TIMER
FOR i = 1 TO m
FOR j = 1 TO n
a(j, i) = RND(1) * 100 - 50
NEXT j
PRINT TAB(10);
NEXT i

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i


PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

PRINT TAB(10); "summa modulej elementov v stolbtsax"
PRINT
PRINT TAB(10);
FOR i = 1 TO n
PRINT b(i);
NEXT i

[Sazary]

хм.. у меня ни на что не ругается..
Ввожу

3,3

вроде, считает..

[бедный_студент]

а какая разница...
тоже самое.
кстати если добавить чтобы он ее и матрицу выводил а 1 ошибку больше будет

я ообще не понимаю почему так я раньше сто раз писал такие комбинации все норм было

[бедный_студент]

квадратные считает спору нет а вот несимметричные матрицы ругается
попробуй
2,3
3,2
1,9
9,1

[Sazary]

бедный_студент
Вы в в первый раз в циклах идете по i до n, по j - до m.
А во второй раз, по i - до m, а по j - до n.

[бедный_студент]

т.е. ? попроще пожалуйста

[Sazary]

Ну вот же:

FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = RND(1) * 100 - 50

а потом:

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i

[бедный_студент]

CLS
PRINT "v dvumernom massive vechestvennix chisel najti maksimalnyju summy absolutnix znachenij elementov po stolbcam"
PRINT
PRINT TAB(10);
INPUT "vvedite razmernost' massiva v kotorom N strok i M stolbcov... ", n, m
PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

DIM a(n, m)
DIM b(n)
RANDOMIZE TIMER
FOR i = 1 TO m
FOR j = 1 TO n
a(j, i) = RND(1) * 100 - 50
NEXT j
PRINT TAB(10);
NEXT i

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i


PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

PRINT TAB(10); "summa modulej elementov v stolbtsax"
PRINT
PRINT TAB(10);
FOR i = 1 TO n
PRINT b(i);
NEXT i

где это такое ?
п.с. какая то проклятая задачка

[Sazary]

где это такое ?

о_О
Ну как же можно не найти?

CLS
PRINT "v dvumernom massive vechestvennix chisel najti maksimalnyju summy absolutnix znachenij elementov po stolbcam"
PRINT
PRINT TAB(10);
INPUT "vvedite razmernost' massiva v kotorom N strok i M stolbcov... ", n, m
PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

DIM a(n, m)
DIM b(n)
RANDOMIZE TIMER
FOR i = 1 TO m
FOR j = 1 TO n
a(j, i) = RND(1) * 100 - 50
NEXT j
PRINT TAB(10);
NEXT i

FOR i = 1 TO m
FOR j = 1 TO n
b(i) = b(i) + ABS(a(j, i))
NEXT j
NEXT i


PRINT
FOR i = 1 TO 80
PRINT CHR$(196);
NEXT i

PRINT TAB(10); "summa modulej elementov v stolbtsax"
PRINT
PRINT TAB(10);
FOR i = 1 TO n
PRINT b(i);
NEXT i