Заполнить массив паскаль 20 ! ) 1 2 3 4 5 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

219

464

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

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

Mimosa1233

Информатика

4,8(19 оценок)

Const n = 4; m = 5; var i, j, k: integer; a: array [1 .. n, 1 .. m] of integer; begin i : = 1; for j : = 1 to 5 do a[i, j] : = j; k : = 0; for i : = 3 to n + 1 do begin for j : = 1 to m do begin k : = (i - 1) * m + j; a[i - 1, j] : = k; end; end; for i : = 1 to n do begin for j : = 1 to m do write(a[i, j]: 4); writeln; end; readln; end.