составить программку, которая формирует массив из 27 случайный чисел от -10

const n=27;

var a:array [1..n] of integer;

i:integer;

begin

write('      Исходный массив: ');

for i:=1 to n do

begin

a[i]:=random(26)-10;

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

if a[i] mod 2 lt;gt; 0 then a[i]:=3

else a[i]:=a[i]-3//убавляет на 3,т.к. при убавлении в 3 раза выходит тип real, тут либо 2-ой массив творить либо брать a[i]:=a[i] div 3 (целочисленное дробленье)

end;

writeln;

write('Преобразованый массив: ');

for i:=1 to n do write(a[i]:3,' ')

end.