petyaGavrikov

Verified answer

Const n=20;
var a:array[1..n] of integer;
i,min:integer; 
begin 
Randomize;
for i:=1 to n do 
 begin
 a[i]:=random(101);
 write(a[i]:4);
 end;
writeln; 
min:=1000;
for i:=n div 4+1 to n div 2 do
 if (i mod 2 = 1)and(a[i]<min) then min:=a[i];
writeln('min = ',min);
end.

Пример:
 88  6 45  6  2 72 92 83 55 96  4 52 33 81 62 79 51 46  9 82
min = 55