Submission #3373060

---

Source Code Expand

var
 n,i,min,x,max,s:longint;
 a:array[0..1001] of longint;
begin
 readln(n);
 min:=1000;
 for i:=1 to n do
  begin
   readln(x);
   a[x]:=1;
   if x>max then max:=x;
   if x<min then min:=x;
  end;
 for i:=max downto min do
  begin
   if a[i]=1 then inc(s);
   if s=2 then begin writeln(i); break; end;
  end;
end.

Submission Info

Compile Error

/usr/bin/ld.bfd: warning: ./link.res contains output sections; did you forget -T?

Judge Result