Question

pascal问题

某次科研调查时得到了n个自然数，每个数均不超过1000。现在需要统计这些自然数各自出现的次数，并按照自然数从小到大的顺序输出统计结果。

Answer 1

var n,i,x,a:[0..1000]of integer;
begin
  read(n);
  for i:=1 to n do
  begin
    read(x);
    inc(a[x]);
  end;
  for i=0 to  n do
    if a[i]>0 then writeln(i,':',a[i]);
end.