Submission #3378141

---

Source Code Expand

var
 a:array[1..1000] of longint;
 i,j,n,x,s:longint;
begin
 readln(n);
 for i:=1 to n do 
  begin
   readln(x);
   a[x]:=1;
  end;
  for i:=1000 downto 1 do 
  begin
   s:=s+a[i];
   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