Нужно сделать массив, заполненный случайным образом 20 целыми числами в спектре

Ответ:

Разъясненье:

var i, pol, otr: integer;

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

begin

randomize;

for i:=1 to 20 do

a[i]:= random(51)-30;

writeln('Положительные элементы ниже');

for i:=1 to 20 do begin

if (a[i]gt;0) then

write(a[i], ' ');

end;

writeln; // для переноса каретки на следующую строку

writeln('Элементы меньше 10, заканчивающиеся на 5 будут ниже');

for i:=1 to 20 do begin

if (a[i] lt; 10) and (a[i] mod 5 = 0) then

write(a[i], ' ');

end;

writeln;

readln();

end.