Question

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

Answer 1

program qq;
var a:array[1..9] of string;   
 b:array[1..3,1..3] of string;   
i, j, k:integer;    

begin
i:=0;
for i:=1 to 9 do readln(a[i]);
i:=0;
j:=0;
k:=1;
for i:=1 to 3 do 
for j:=1 to 3 do 
begin 
b[i, j]:=a[k]; 
k:=k+1; 
end;
for i:=1 to 3 do
for j:=1 to 3 do 
begin 
write(b[i, j]); 
if (j=3) then writeln(); 
end;
end.