1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 | CLSINPUT "vvedite kol-vo strok ",mINPUT "vvedite kol-vo stolbcov ",nDIM A(m,n)FOR i=1 TO mFOR j=1 TO nINPUT "vvedite element ",a(i,j)NEXTNEXTPRINT "ishodnyj massiv"FOR i=1 TO mFOR j=1 TO nPRINT a(i,j);NEXTPRINTNEXTFOR i=1 TO mFOR j=1 TO na(i,j)=a(i,j)+1NEXTNEXT PRINT "novyj massiv"FOR i=1 TO mFOR j=1 TO nPRINT a(i,j);NEXTPRINTNEXT |