Как сформировать из одномерного массива матрицу по 4 элемента в строке? паскаль

Вопрос от пользователя: Федор

Как сформировать из одномерного массива матрицу по 4 элемента в строке? паскаль

Ответ: Наша

Program gt;

var a:array[1 … 1000]of integer;

n, i:integer;

begin

read (N);

for i:=1 to n do

read (a[i]);

for i:=1 to n do

begin

write (a[i],’ ‘);

if (i mod 4=0) then writeln;

end;

end.