1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 | INPUT "vvedite kol-vo strok ", m INPUT "vvedite kol-vo stolbcov ", n DIM a(m, n) DO INPUT "vvedite nomer stroki ", t PRINT "vvedite elementy "; t; " stroki:" FOR j = 1 TO n INPUT "vvedite element ", a(t, j) NEXT INPUT "prodoljim? (d/n+enter) ", t$ LOOP UNTIL t$ = "n" PRINT "massiv" FOR i = 1 TO m FOR j = 1 TO n PRINT a(i, j); NEXT PRINT NEXT |