В чем дело ? не понимает бейсик код

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

почему кубасик ругается что цикл не открыт ? там же написан код

CLS
PRINT "opredelit srednee arifmeticheskoe elementov matrici"
PRINT "lezhashix na peresechenii strok nomera kotorix kratni R"
PRINT "i stolbcov nomera kotorix kratni S"
  PRINT
INPUT "vvedite razmernost' massiva v n stolbcov i m strok... ", n, m
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),
NEXT j
PRINT
NEXT i
INPUT "vvedite chislo kotoromy dolshen bit kratna  stroka (r) ... ", str
INPUT "vvedite chislo kotoromy dolshen bit kratna stolbec (s)...", st

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)

NEXT j
NEXT i



END

[Sazary]

У вас IF'ы не закрыты. Надо как-то так:

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

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

так тут е циклы он на ифы не жалуется

[Sazary]

так тут е циклы он на ифы не жалуется

А вы исправьте и увидите результат