比赛代码 - COGS

比赛	啦啦啦,一星期两次的水题赛	评测结果	RR
题目名称	数字频率	最终得分	0
用户昵称	[]	运行时间	0.000 s
代码语言	Pascal	内存使用	0.74 MiB
提交时间	2014-10-28 19:49:58

显示代码纯文本

var n,i:longint;
    a:array[0..300000] of integer;
    x:integer;
begin
  //assign(input,'freq.in');
  //assign(output,'freq.out');
  //reset(input);
  //rewrite(output);
  readln(n);
  for i:=1 to n do
    begin
      readln(x);
      inc(a[x]);
    end;
  for i:=1 to 30 do writeln(i,':',a[i]*100/n:3:1,'%');
  //close(input);
  //close(output);
end.