Код:
uses crt;
var n,i:integer;
mas: array[1..10000] of real;
min, max:real;
begin
readln(n);
for i:=1 to n do
readln(mas[i]);
clrscr;
min:=mas[0];
max:=mas[0];
for i:=1 to n do begin
write(mas[i]:4:6);
if mas[i]<min then min:=mas[i];
if mas[i]>max then max:=mas[i];
end;
writeln;
for i:=1 to n do begin
if mas[i]=0 then mas[i]:=max;
if mas[i]=min then mas[i]:=0;
write(mas[i]:4:6);
end;
writeln;
readln;
end.