Нужна программа в паскале (с "ramdomize")
N = 27 заполнить массив с помощью случайных чисел от-20 до 20

Var
   a: array[1..20] of integer;
   i: integer;
begin
   randomize;
   for i:=1 to 20 do
       a[i] := random(41) - 20;
   for i:=1 to 20 do
       write(a[i], );
   writeln;
end.