uses crt;
var i,j,n,tam,max:integer;
a:array[1..100] of integer; 
begin
clrscr;
readln(n);
for i:=1 to n do readln(a[i]);
for i:=1 to n-1 do
for j:=i+1 to n do
 if a[i]<a[j] then
 begin
  tam:=a[i];
  a[i]:=a[j];
  a[j]:=tam;
 end;
 max:=a[1];
for i:=1 to n do
begin
 write(a[i],' ');
 if abs(max)<abs(a[i]) then max:=a[i];
end;
writeln;
write(max);
readln;
end.

=======

abs là hàm trả về giá trị tuyệt đố của 1 số nhé!

program ddd;

var
  n, i, j : byte;
  tmp, max, maxIndex : longint;
  a : array [1 .. 100] of longint;

begin
  read(n);
  for i:=1 to n do read(a[i]);

  for i:=1 to n-1 do
    for j:=i to n do
      if a[i] < a[j] then
        begin
          tmp:=a[i];
          a[i]:=a[j];
          a[j]:=tmp;
        end;

  for i:=1 to n do
    write(a[i], ' ');
  writeln;

  max:=a[1];
  maxIndex:=1;
  for i:=2 to n do
    if a[i] < 0  then
      begin
        if max < -a[i] then 
          begin
            max:=-a[i];
            maxIndex:=i;
          end
      end
    else if max < a[i] then
      begin
        max:=a[i];
        maxIndex:=i;
      end;
  writeln(a[maxIndex]);
end.