比赛代码 - COGS

比赛	20121106	评测结果	WWWWWWWWWWWWWWW
题目名称	二十一点	最终得分	0
用户昵称	Lyre	运行时间	0.004 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-11-06 11:20:20

显示代码纯文本

program fall;
var m,i,sum,x:longint;
begin
 assign(input,'jack.in');
 assign(output,'jack.out');
 reset(input);
 rewrite(output);
 readln(m);
 for i:=1 to m do
  begin read(x); sum:=x+sum; end;
 if sum div m>5 then writeln(m div 6) else writeln((m div 6)+1);
 close(input);
 close(output);
end.