记录编号 190972 评测结果 AAAAAAAAAA
题目名称 [咲 -Saki-] 我的天凤不可能这么简单 最终得分 100
用户昵称 Gravatar天际游荡 是否通过 通过
代码语言 Pascal 运行时间 0.505 s
提交时间 2015-10-05 17:06:33 内存使用 3.98 MiB
显示代码纯文本
var
a:array[1..1000000]of longint;
i,j,n,k,m,l:longint;
begin
assign(input,'tenhous.in');
assign(output,'tenhous.out');
reset(input);
rewrite(output);
read(n);
readln(m);
for i:=1 to n do
read(a[i]);
for i:=1 to n do
begin
k:=k+a[i];if k>=m then begin
k:=k-m;j:=j+1;end;
if i<>n then k:=k div 2;
end;
writeln(j);
write(k);
close(input);
close(output);
end.