比赛代码 - COGS

比赛	啦啦啦,一星期两次的水题赛	评测结果	AA
题目名称	数字频率	最终得分	100
用户昵称	infnite albert	运行时间	0.003 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2014-10-28 19:17:03

显示代码纯文本

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