比赛代码 - COGS

比赛	咲 -Saki- 互测赛	评测结果	AAAAAAAAAA
题目名称	我的天凤不可能这么简单	最终得分	100
用户昵称	digital-T	运行时间	0.477 s
代码语言	Pascal	内存使用	0.17 MiB
提交时间	2012-11-07 19:42:27

显示代码纯文本

var
n,t,m,a,i,ans:longint;
begin
assign(input,'tenhous.in');reset(input);
assign(output,'tenhous.out');rewrite(output);
read(n,m);
t:=0;
ans:=0;
for i:=1 to n do
 begin
  t:=t div 2;
  read(a);
  t:=t+a;
  if t>=m then begin inc(ans);t:=t-m;end;
 end;
writeln(ans);
write(t);
close(input);
close(output);
end.