比赛代码 - COGS

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

显示代码纯文本

program xxxx;
var a:array[1..30000000] of longint;
    n,i,w,m:integer;
begin
  assign(input,'pcount.in');
  reset(input);
  assign(output,'pcount.out');
  rewrite(output);
  read(n);
  for i:=1 to n do
   begin
    read(m);
    inc(a[m]);
    if m>w then
     w:=m;
   end;
  for i:=1 to w do
   if a[i]<>0 then
   writeln(i,' ',a[i]);
  close(input);
  close(output);
end.