Как применить random вместо readln?
program pr9;
type mas= array[-10..10] of integer;
const n = 5;var s,i:integer;a:mas; 
begin
writeln('Номера четных отрицательных элементов:');
s:=0;
for i:=1 to n do begin 
readln(a[i]);
end;
for i:=1 to n do begin
if (a[i]<0)and(a[i] mod 2=0)then 
begin   
write(i,' ');   
s:=s+a[i]; 
end; 
end;
writeln;
writeln('Их сумма=',s);
end.

program pr9;type mas = array[-10..10] of integer;const n = 5;var s, i:integer;a:mas;begin     randomize;     writeln('Номера четных отрицательных элементов:');     s := 0;     for i := 1 to n do     begin          a[i] := random(1000) - 500;{Числа рандомизируются от -500 до 500}     end;     for i:=1 to n do     begin          write(a[i], ' ');     end;     for i:=1 to n do     begin          if (a[i] < 0) and (a[i] mod 2 = 0)          then          begin               write(i, ' ');               s := s + a[i];          end;     end;     writeln;     writeln('Их сумма = ', s);end.