Одномерный массив А длиной N<=25 заполнить случайными числами из диапазона

const n=25;
type mas=array[1..n]of integer;
procedure massiv(var a:mas);
var i:integer;
begin
writeln('Исходный массив');
for i:=1 to n do
 begin
  a[i]:=-18+random(29);
  write(a[i]:4);
 end;
writeln;
end;
procedure max(a:mas);
var i,k,mx:integer;
begin
k:=0;
for i:=1 to n do
if a[i] mod 2=0 then
if k=0 then
 begin
  k:=1;
  mx:=a[i];
 end
else if a[i]>mx then mx:=a[i];
if k=0 then writeln('В массиве нет четных элементов')
else writeln('Максимальный среди четных=',mx);
end;
procedure otr(a:mas);
var i,y1,y2,k:integer;
begin
repeat
writeln('Введите диапазон отрицательных целых чисел y1<y2');
readln(y1,y2);
until (y1<0)and(y2<0)and(y1<y2);
k:=0;
for i:=1 to n do
if(a[i]>=y1)and(a[i]<=y2)then k:=k+1;
writeln('Количество чисел из диапазона [',y1,',',y2,']=',k)
end;
var a:mas;
begin
randomize;
massiv(a);
max(a);
otr(a);
end.

const n=10;
type mas=array[1..n]of integer;
function sum(a:mas):integer;
var i,s:integer;
begin
s:=0;
for i:=1 to n do
s:=s+a[i];
sum:=s;
end;
procedure massiv(var a:mas);
var i:integer;
begin
writeln('Набранные голоса');
for i:=1 to n do
 begin
  a[i]:=5+random(100);
  write(a[i]:4);
 end;
writeln;
writeln('Проценты');
for i:=1 to n do
write(a[i]*100/sum(a):4:0);
writeln;
end;
 
procedure max1(a:mas;var m:integer);
var i:integer;
begin
i:=1;
while(i<=n)and(a[i]/sum(a)<=0.5) do inc(i);
if i<=n then m:=i else m:=0;
end;
procedure max2(a:mas;var m1,m2:integer);
var i:integer;
begin
if a[1]>a[2] then
   begin
    m1:=1;
    m2:=2;
   end
  else
   begin
    m1:=2;
    m2:=1;
   end;
  for i:=3 to n do
  if a[i]>a[m1] then
   begin
    m2:=m1;
    m1:=i;
   end
else if a[i]>a[m2] then m2:=i;
end;
var a:mas;
    m,i1,i2:integer;
begin
randomize;
massiv(a);
max1(a,m);
if m>0 then write('Мэром избран кандидат номер ',m)
else
 begin
  max2(a,i1,i2);
  write('Во второй тур прошли кандидаты номер ',i1,' и ',i2);
 end;
end.