Submission #3696144

---

Source Code Expand

var
  s,i,j,n,x:longint;
  a:array[0..10000] of longint;
begin
  readln(n);
  for i:=1 to n do begin readln(x);a[x]:=1;end;
  for i:=1000 downto 1 do
  begin
    if a[i]=1 then inc(s);
    if s=2 then begin writeln(i);exit;end;
  end;
end.

Submission Info

Compile Error

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

Judge Result