Submission #2974209

---

Source Code Expand

var a,n,i,c:longint;s:array[1..100]of integer;
begin
read(n);
for i:=1 to n do begin
	read(a);
	if s[a]=0 then inc(c);
	inc(s[a]);
end;
write(c)
end.

Submission Info

Compile Error

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

Judge Result