题解 P3817 【小A的糖果】

题解 P3817 【小A的糖果】

这道题真的有点水

program LuoguP3817(input,output);
var
 n,x:int64;  //开int64，不然会炸点
 a:array of int64;  //pascal动态数组，节省内存，~不为人知的小秘密
 i:longint;
 count:int64; //用以计数
begin
 count:=0;
 readln(n,x);
 setlength(a,n+1); //设置动态数组的长度(保留一个冗余)
 for i:=1 to n do read(a[i]);
 for i:=2 to n do
 begin
  if a[i-1]+a[i]>x then
  begin
   count:=count+(a[i-1]+a[i]-x); //如果两个连续的糖果数之和超限，则在count计数中加入(a[i-1]+a[i]-x)个糖果
   a[i]:=x-a[i-1];    //对第二堆糖果数进行处理，使得它"真的被吃了" （呵呵）
  end;
 end;
 writeln(count);
end.        //AC成功
这道题并没有什么重点难点，Accept还是很容易的.