У дрозофилы доминантные гены нормального крыла и серой окраски тела сцеплены и локализованы в одной хромосоме, а рецессивные гены

Var a:array [1..100] of integer;
max, min, n, i:integer;
begin
readln(n);
for i:=1 to n do
read(a[i]);
for i:=1 to 10 do
write(a[i],' ');
max:=-maxint;
min:=maxint;
for i:=1 to n do begin
if a[i]>max then max:=a[i];
if a[i]<min then min:=a[i];
end;
writeln('Наибольший элемент: ',max);
writeln('Наименьший элемент: ',min)
end.