CLS
INPUT "vvedite kol-vo strok ",m
INPUT "vvedite kol-vo stolbcov ",n
DIM A(m,n)
FOR i=1 TO m
FOR j=1 TO n
INPUT "vvedite element ",a(i,j)
NEXT
NEXT
PRINT "ishodnyj massiv"
FOR i=1 TO m
FOR j=1 TO n
PRINT a(i,j);
NEXT
PRINT
NEXT
FOR i=1 TO m
FOR j=1 TO n
a(i,j)=a(i,j)+1
NEXT
NEXT 
PRINT "novyj massiv"
FOR i=1 TO m
FOR j=1 TO n
PRINT a(i,j);
NEXT
PRINT
NEXT