校门外的树加强版

某校大门外长度为n的马路上有一排树，每两棵相邻的树之间的间隔都是1米。我们可以把马路看成一个数轴，马路的左端在数轴0的位置，右端在n的位置；数轴上的每个整数点，即0，1，2，……，n，都种有一棵树。由于马路上有一些区域要用来建地铁。所以有些树要被移走并要保留m棵树，每棵树都有一个基础美观值，并且树的美观值与左边相邻最近的树之间的距离也有关。第1棵树的美观值为它的基础美观值，第i（i＞1）棵树的美观值为a[i]/(|K-L|+1)，其中a[i]为在整数点i上的树的基础美观值，K为一个常量，L为第i棵树与保留下来的左边最近的树的距离。你的任务就是对于给出的数据，求出留下m棵树的美观值之和最大为多少。
【输入格式】
输入文件tree2.in的第1行为3个正整数n，m，K，其中n表示马路的长度，m表示需要保留树的数目，K为计算美观值的常量。
第2行有n+1个整数，a[0]，a[1]，…，a[n]，整数之间用一个空格隔开，描述每棵树的基础美观值。

【输出格式】

　输出文件tree2.out的仅包括1行，为最大美观值，结果保留2位小数。

样例输入 Sample Input
 4 3 2
4 4 3 1 -2
样例输出 Sample Output
 7.50
【样例说明】
保留在整点0 2 3上的树结果最优。
 
时间限制为1秒
【数据规模】
对于20%的数据，m≤n≤10。
对于50%的数据，m≤n≤50。

对于100%的数据，m≤n≤200，-10000≤a[n]≤10000，K≤10000。

var n,m,x,k,i,j:longint;
ans:real;
a:array[0..201]of longint;
f:array[0..200,1..201]of real;
function max(a,b:real):real;
begin
  if a>b then exit(a) else exit(b);
end;
begin
  readln(n,m,x);
  for i:=0 to n do
  for j:=1 to m do f[i,j]:=-maxlongint;
  for i:=0 to n do read(a[i]);
  for i:=0 to n do f[i,1]:=a[i];
  for i:=1 to n do
  for j:=2 to m do
  begin
    for k:=j-2 to i-1 do
    f[i,j]:=max(f[i,j],f[k,j-1]+a[i]/(abs(x-i+k)+1));
  end;
  ans:=-maxlongint;
  for i:=m-1 to n do
  if f[i,m]>ans then ans:=f[i,m];
  if trunc(ans)=0 then write('0.00') else write(ans:0:2);
end.

如果我们把位置设置为0—n的话
f[i,j]表示0—i范围内种了j棵树且最后一颗树的位置恰好为i的最大值