var b: array [1..20] of real;

i: integer;

max,min: real;

begin

for i:=1 to 20 do b[i]:=random(156)-65;

max:=b[1];

min:=b[1];

for i:=2 to 20 do begin

if min>b[i] then min:=b[i] else

if max<b[i] then max:=b[i];

end;

writeln('Частное максимального ',max,' на ',min,' - ',max/min);

end.