记录编号	5851	评测结果	AAAAAAAAAA
题目名称	[USACO Mar08] 奶牛渡河	最终得分	100
用户昵称	3144046	是否通过	通过
代码语言	Pascal	运行时间	0.010 s
提交时间	2008-10-28 21:44:04	内存使用	0.13 MiB

const maxn=2500+10;

var a,t:array[0..maxn] of longint;
    x,n,m,i,j:longint;

begin
    assign(input,'cowriver.in');reset(input);
    assign(output,'cowriver.out');rewrite(output);
    readln(n,m);
    t[0]:=m;
    for i:=1 to n do
    begin
        read(x);
        t[i]:=t[i-1]+x;
    end;
    for i:=0 to n do inc(t[i],m);

    fillchar(a,sizeof(a),26);
    a[0]:=0;
    for i:=1 to n do
    if a[i]>t[i] then
    begin
        for j:=i to n do
          if a[j]>a[j-i]+t[i] then a[j]:=a[j-i]+t[i];
    end;
    writeln(a[n]-m);
    close(output);
end.