记录编号 117092 评测结果 AAAAAAAAAA
题目名称 Cool 最终得分 100
用户昵称 Gravatar筽邝 是否通过 通过
代码语言 Pascal 运行时间 0.122 s
提交时间 2014-08-28 09:27:42 内存使用 0.32 MiB
显示代码纯文本
program cojs1693;
uses math;
const
  maxn=3000;
var
  f,v:array[0..maxn]of longint;
  n,m,i,j:longint;

begin
assign(input,'cool.in');reset(input);
assign(output,'cool.out');rewrite(output);

  readln(n,m);
  for i:=0 to n do
    read(v[i]);
  for i:=0 to n do
    f[i]:=(n+m)*v[0];
  for i:=1 to n do
  for j:=i to n do
    f[j]:=max(f[j],f[j-i]+v[i]-v[0]);
  writeln(f[n]);

close(input);close(output);
end.