比赛代码 - COGS

比赛	啦啦啦,一星期两次的水题赛	评测结果	AA
题目名称	数字频率	最终得分	100
用户昵称	曾庆涛	运行时间	0.005 s
代码语言	Pascal	内存使用	0.00 MiB
提交时间	2014-10-28 18:54:14

显示代码纯文本

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