BZOJ1652 [Usaco2006 Feb]Treats for the Cows

蒟蒻许久没做题了，然后连动规方程都写不出了。

参照iwtwiioi大神，这样表示区间貌似更方便。

令f[i, j]表示i到j还没卖出去，则

f[i, j] = max(f[i + 1, j] + v[i] * T, f[i, j - 1] + v[j] * T) （←这样用推的方式更好想一点。。）

/**************************************************************
    Problem: 1652
    User: rausen
    Language: Pascal
    Result: Accepted
    Time:136 ms
    Memory:24852 kb
****************************************************************/
 
uses math;
 
var
  n, k, i, j, t : longint;
  f : array[0..2500, 0..2500] of longint;
  v : array[0..2500] of longint;
 
begin
  readln(n);
  for i := 1 to n do
    read(v[i]);
  for k := 1 to n do begin
    t := n - k + 1;
    for i := 1 to t do begin
      j := i + k - 1;
      f[i, j] := max(f[i + 1, j] + t * v[i], f[i, j - 1] + t * v[j]);
    end;
  end;
  writeln(f[1, n]);
end.