Написать программу в паскале. за ранее . на двумерный массив. 2. заполнить двухмерный массив nm [1..5,1..5] константами: 100 101 102 103 104 200 201 202 203 204 300 301 302 303 304 400 401 402 403 404 500 501 502 503 504

148

356

Посмотреть ответы 3

Ответы на вопрос:

denisplaver

Информатика

4,6(69 оценок)

program vovka9673; uses crt; const n=5; var nm: array[1..n,1..n] of integer; i,j: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); for i: =1 to n do begin for j: =1 to n do begin nm[i,j]: =i*100+j-1; write (nm[i,j]: 5) end; writeln(); end; end.

olgadyra

Информатика

4,6(89 оценок)

uses crt; constnm: array[1..5,1..5] of integer=((100,101,102,103,104),(200,201,202,203,204),(300,301,302,303,304),(400,401,402,403,404),(500,501,502,503,504)); varn,m: integer; beginfor n: =1 to 5 dobeginfor m: =1 to 5 dowrite(nm[n,m]: 6); writeln; end; end.