比赛代码 - COGS

比赛	20100919	评测结果	EEEEEEEEEE
题目名称	统计数字	最终得分	0
用户昵称	gragon	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2010-09-19 11:36:40

显示代码纯文本

program ex;
var
f:text;
a:array[1..30000000] of longint;
m,n,i,j:longint;
begin
assign(f,'pcount.in');
reset(f);
readln(f,n);
for i:=1 to n do
begin
readln(f,m);
inc(a[m]);
end;
close(f);
assign(f,'pcount.out');
rewrite(f);
for i:=1 to 30000000 do
if (a[i]<>0) then
writeln(f,i,' ',a[i]);
close(f);
end.