Var a, b, c, i :integer; s :array[1..12] of integer; p :array[1..4,1..3] of integer; begin for i:=1 to 12 do read (s[i]); i:=1; for a:=1 to 4 do for b:=1 to 3 do begin p[a,b]:=s[i]; i:=i+1; end; for a:=1 to 4 do begin for b:=1 to 3 do write (p[a,b],' '); writeln; end; end.
s :array[1..12] of integer;
p :array[1..4,1..3] of integer;
begin
for i:=1 to 12 do read (s[i]);
i:=1;
for a:=1 to 4 do
for b:=1 to 3 do
begin p[a,b]:=s[i];
i:=i+1;
end;
for a:=1 to 4 do
begin
for b:=1 to 3 do write (p[a,b],' ');
writeln;
end;
end.
P.S. Надеюсь на благодарность и лучший ответ.