科学试验室在一次实验时得到了N个自然数,每个数不超过100,现在需要统计这些自然数出现的次数并按照从小到大的顺序输出统计结果.输入：59,71,85,62,38,43,29,89,5,38,47,79,47,83,2,83,95,97,47,79,46,67,11

Question

科学试验室在一次实验时得到了N个自然数,每个数不超过100,现在需要统计这些自然数出现的次数
并按照从小到大的顺序输出统计结果.输入：59,71,85,62,38,43,29,89,5,38,47,79,47,83,2,83,95,97,47,79,46,67,11.用PASCAL语言,要快,谢谢!

Answer 1

var n,i,b:longint;
a:array[1..100]of longint;
begin
read(n);
for i:=1 to n do
begin
read(b);
inc(a[b]);
end;
for i:=1 to 100 do writeln(a[i]);
end.