比赛 啦啦啦,一星期两次的水题赛 评测结果 AA
题目名称 数字频率 最终得分 100
用户昵称 safhsdajkfhsad 运行时间 0.001 s
代码语言 Pascal 内存使用 0.17 MiB
提交时间 2014-10-28 19:35:03
显示代码纯文本
const
  maxnum=30;

var
  n,i,x:longint;
  data:array[0..maxnum] of longint;

begin
  assign(input,'freq.in');
  reset(input);
  assign(output,'freq.out');
  rewrite(output);

  fillchar(data,sizeof(data),0);
  readln(n);
  for i:=1 to n do
    begin
      readln(x);
      inc(data[x]);
    end;

  for i:=1 to 30 do
    begin
      write(i,':');
      writeln((data[i]*100) / (n):0:1,'%' );
    end;

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