С ПОМОЩЬЮ ГЕНЕРАТОРА ЦЕЛЫХ СЛУЧАЙНЫХ ЧИСЕЛ ЗАПОЛНИТЬ МАССИВ НА 30 Частей

var
mas: array [1..30] of integer;
k,i: integer;

begin
for i := 1 to 30 do
begin
mas[i]:=random(36)+1-random(25)+1;
write(mas[i], );
if mas[i]lt;0 then inc(k);
end;
writeln;
writeln(Кол-во: ,k);
for i:=1 to N do
read(a[i]);

for i:=1 to N div 2 do begin
b := a[i];
a[i] := a[N-i+1];
a[N-i+1] := b;
end;

for i:=1 to N do
write(a[i], );

writeln;
end.