比赛代码 - COGS

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

显示代码纯文本

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

   close(input); close(output);
end.