Заполнить массив двухмерный по образцу 12 24 ... 120 ... 2 14 ... 110 1 13 ... 109

Question

Информатика

Славуха

10 февраля, 15:17

Заполнить массив двухмерный по образцу 12 24 ... 120 ... 2 14 ... 110 1 13 ... 109

+5

Ответы (1)

Знаете ответ?

Дия · Answer 1

Const n=12; m=10;

var a: array [1 ... n, 1 ... n] of integer;

i, j:integer;

begin

for i:=1 to n do begin

for j:=1 to m do begin

a[i, j]:=12*j-i+1;

write (a[i, j]:4) ;

end;

writeln;

end;

end.