фрагмент:

m:=a[0]; for i:=1 to n do if a[i]>m then m:=a[i];
for i:=1 to n do if a[i]=m then a[i]:=-1000;

фрагмент:

max:=a[0]; min:=a[0];
for i:=1 to n do
  if a[i]>max then max:=a[i];
  if a[i]<min then min:=a[i];
writeln(max+min);

фрагмент:

max:=a[0]; min:=a[0];
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+min)/2);

фрагмент:

max:=a[0]; min:=a[0];
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+min);

фрагмент:

m:=a[0]; for i:=1 to n do if a[i]<m then m:=a[i];
for i:=1 to n do if a[i]=m then a[i]:=1000;

фрагмент:

max:=a[0]; min:=a[0];
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(sqrt(max*min));