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
Тестирование выполнено в программе QB64 ( Скачать )