比赛代码 - COGS

比赛	咲 -Saki- 互测赛	评测结果	AAWWWWWWWW
题目名称	我的天凤不可能这么简单	最终得分	20
用户昵称	antenna	运行时间	0.486 s
代码语言	Pascal	内存使用	7.80 MiB
提交时间	2012-07-19 09:28:34

显示代码纯文本

var
a,b:array[0..1000000] of longint;
n,m,i,sum:longint;
begin
assign(input,'tenhous.in');reset(input);
assign(output,'tenhous.out');rewrite(output);
readln(n,m);
for i:=1 to n do read(a[i]);
for i:=1 to n do
begin
	b[i]:=b[i-1] div 2 +a[i];
	if b[i]>m then begin inc(sum);b[i]:=b[i]-m; end;
end;
writeln(sum,' ',b[n]);
close(output);
end.