Одномерный массив из N элементов заполнен случайными числами (N>10). Сформировать

из него матрицу, содержащую по 4 элемента в строке. Недостающие элементы в

последней строке (если будут) заполнить нулями.

Program gt;

var n, i:integer;

a:array[1 ... 1000]of integer;

begin

randomize;

read (n);

for i:=1 to n do

a[i]:=random (40) - 20;

for i:=1 to n do

begin

write (a[i]:4,' ');

if (i mod 4=0) then writeln;

end;

for i:=1 to 4-n mod 4 do

write (0:4,' ');

end.