记录编号	46852	评测结果	AAAAAAAAAA
题目名称	[USACO Jan08] 贝茜的晨练计划	最终得分	100
用户昵称	天下第一的吃货殿下	是否通过	通过
代码语言	Pascal	运行时间	0.422 s
提交时间	2012-10-29 20:27:00	内存使用	19.36 MiB

var
  a,b,c,d,e,n,m:longint;
  sum:array[0..10000] of longint;
  dp:array[0..10001,0..501] of longint;
   function max(xx,yy:longint):longint;
        begin
           if xx>yy then exit(xx)
            else exit(yy);
        end;
 begin
  assign(input,'cowrun.in');
   reset(input);
    assign(output,'cowrun.out');
     rewrite(output);
   readln(n,m);
    for a:=1 to n do
     read(sum[a]);
        for a:=1 to n do
          begin
          dp[a,0]:=dp[a-1,0];
          for b:=1 to m do
            if a>=b then
          begin
             dp[a,b]:=max(dp[a,b],dp[a-1,b-1]+sum[a]);
             dp[a,0]:=max(dp[a,0],dp[a-b,b]);
        end;
    end;
        writeln(dp[n,0]);
    close(input);
    close(output);
end.