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

program zz1;

var y:array[1 ... 9] of integer;

x:array[1 ... 3,1 ... 3] of integer;

i, j, k:integer;

begin

for k:=1 to 9 do / /вводим демять чисел в одномерный массив с клавиатуры

read (y[k]);

i:=1; / /задаем начальный номер строки матрицы

j:=1; / /задаем начальный номер столбца матрицы

for k:=1 to 9 do

begin

x[i, j]:=y[k]; / /записываем число из одномерного массива в матрицу

inc (j);

if j mod 4 = 0 then begin j:=1; inc (i); end; / /если выходим за пределы матрицы возвращаемся к началу на новую строку

end;

for i:=1 to 3 do / /выводим полученную матрицу

begin

for j:=1 to 3 do

write (x[i, j]:5);

writeln;

end;

end.