Submission #4074160

---

Source Code Expand

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