найдите пожалуйста ошибку qbasic жалуется что число вне диапазона когда ввожу

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

CLS
PRINT "opredelit srednee arifmeticheskoe elementov matrici"
PRINT "lezhashix na peresechenii strok nomera kotorix kratni R"
PRINT "i stolbcov nomera kotorix kratni S"
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
INPUT "vvedite razmernost' massiva v n stolbcov i m strok... ", n, m
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
DIM a(n, m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND(1) * 100)
PRINT a(i, j);
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
NEXT j
PRINT
NEXT i
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
1 : INPUT "vvedite chislo kotoromy dolshen bit kratna  stroka (r) ... ", str
IF str = 0 THEN
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
PRINT "delit na 0 nelz9"
GOTO 1
END IF
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
2 : INPUT "vvedite chislo kotoromy dolshen bit kratna stolbec (s)...", st
IF str = 0 THEN

PRINT "delit na 0 nelz9"
GOTO 2
END IF
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
FOR i = 1 TO n
IF i MOD str = 0 THEN
FOR j = 1 TO m

IF j MOD st = 0 THEN
ec = ec + 1
summ = summ + a(i, j)
END IF
NEXT j
END IF
NEXT i
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
PRINT "Cymma elementov chetnix stolbcov "; summ
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
PRINT "kolichestvo elementov"; ec

[Sazary]

Вот в этом куске:

DIM a(n, m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND(1) * 100)
PRINT a(i, j);
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
NEXT j
PRINT
NEXT i

Во внутреннем цикле опять повторно i. Измените имя переменной.

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

Сообщение от Sazary

Вот в этом куске:

DIM a(n, m)
RANDOMIZE TIMER
FOR i = 1 TO n
FOR j = 1 TO m
a(i, j) = INT(RND(1) * 100)
PRINT a(i, j);
        PRINT
        FOR i = 1 TO 80
        PRINT CHR$(196);
        NEXT i
        PRINT TAB(10);
NEXT j
PRINT
NEXT i

Во внутреннем цикле опять повторно i. Измените имя переменной.

не понял. опять тоже самое

[Sazary]

не понял. опять тоже самое

Так вы имя переменной поменяли?

FOR i = 1 TO n
 FOR j = 1 TO m
  a(i, j) = INT(RND(1) * 100)
  PRINT a(i, j);
        PRINT
        FOR d = 1 TO 80
        PRINT CHR$(196);
        NEXT d
        PRINT TAB(10);
NEXT j
PRINT
NEXT i

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

благодарю за помощь