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:
     User: rausen
     Language: Pascal
     Result: Accepted
     Time: ms
     Memory: kb
 ****************************************************************/

 uses math;

 var
   n, k, i, j, t : longint;
   f : array[.., ..] of longint;
   v : array[..] of longint;

 begin
   readln(n);
   for i :=  to n do
     read(v[i]);
   for k :=  to n do begin
     t := n - k + ;
     for i :=  to t do begin
       j := i + k - ;
       f[i, j] := max(f[i + , j] + t * v[i], f[i, j - ] + t * v[j]);
     end;
   end;
   writeln(f[, n]);
 end.