Submission #1947613

---

Source Code Expand

var n,i:longint;
    a:array[0..500]of longint;
    x,ans:longint;
begin
  read(n);
  for i:=1 to n do
  begin
    read(x);
    inc(a[x]);
  end;
  for i:=1 to 100 do
  if a[i]>0 then inc(ans);
  writeln(ans);
end.

Submission Info

Compile Error

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

Judge Result