比赛代码 - COGS

比赛	暑假培训六	评测结果	EEEEEEEEEE
题目名称	统计数字	最终得分	0
用户昵称	ReimBurSe.	运行时间	0.000 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2008-07-23 10:49:31

显示代码纯文本

Program pcount;

Type
sc=array [1..10000] of longint;

Var
s:sc;
i,n,x:longint;
f1,f2:text;

Begin
assign(f1,'pcount.in');
assign(f2,'pcount.out');
reset(f1);
rewrite(f2);
readln(f1,n);
for i:=1 to 10000 do s[i]:=0;
for i:=1 to n do begin
 readln(f1,x);
 s[x]:=s[x]+1;
end;
for i:=1 to 10000 do
 if s[i]<>0 then writeln(f2,i,' ',s[i]);
close(f1);
close(f2);
End.