Submission #3360966

---

Source Code Expand

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