Const a:array[1..10,1..5] of integer = ( (1,2,3,4,5), (2,2,3,4,5), (3,2,3,4,5), (4,2,3,4,5), (5,2,3,4,5), (6,2,3,4,5), (7,2,3,4,5), (8,2,3,4,5), (9,2,3,4,5), (10,2,3,4,5) ); var i,j:integer; begin writeln; for i := 1 to 10 do begin for j:= 1 to 5 do write(a[i,j],' '); writeln; end; end.
(1,2,3,4,5),
(2,2,3,4,5),
(3,2,3,4,5),
(4,2,3,4,5),
(5,2,3,4,5),
(6,2,3,4,5),
(7,2,3,4,5),
(8,2,3,4,5),
(9,2,3,4,5),
(10,2,3,4,5) );
var
i,j:integer;
begin
writeln;
for i := 1 to 10 do
begin
for j:= 1 to 5 do
write(a[i,j],' ');
writeln;
end;
end.