Введите с клавиатуры одно мерный числовой массив из 9 элементов . Сверните его в матрицу размером 3*3 , разместив первую тройку элементов в 1-й строке матрицы , 2-ю тройку - во второй строке , 3-ю тройку - в третьей строке .

1

Ответы и объяснения

2013-11-14T18:37:53+04:00
Varj,i,k:byte;
a:array [1..9] of integer;
b:array [1..3,1..3] of integer;
begin
for i:=1 to 9 do
readln (a[i]);
k:=1;
for i:=1 to 3 do begin
for j:=1 to 3 do begin
b[j,i]:=a[k];
write (b[j,i],' ');
K:=k+1;
end;
writeln;
end;
end.