你没有打〖输入格式〗和〖输出格式〗以及〖输入输出样例〗 
这是2002年的竞赛题,可用动态规划来解决.

很明显用动态规划做
program copybooks;
   var r,l,t,i,j,k,m,n:longint;
       w:longint;
       p:array[1..100]of longint;
       f:array[1..100,1..100,1..100]of longint;
   function max(a,b:longint):longint;
        begin
          if a>=b then exit(a) else exit(b);
         end;
   begin
    readln(m,k);
    for i:=1 to m do begin read(p[i]);f[i,i,1]:=p[i];end;
    for i:=1 to m do
      for j:=i+1 to m do
         f[i,j,1]:=f[i,j-1,1]+f[j,j,1];
     for i:=2 to k do
       for j:=2 to m do
         for t:=1 to m-j+1 do
          begin
            w:=1000000;
            for l:=t to j+t-2 do
              if l-t+1<i then begin
                             for r:=1 to l-t+1 do
                                if w>max(f[t,l,r],f[l+1,j+t-1,i-r]) then w:=max(f[t,l,r],f[l+1,j+t-1,i-r]);
                              end
              else begin
                          for r:=1 to i-1 do
                                  if w>max(f[t,l,r],f[l+1,j+t-1,i-r]) then w:=max(f[t,l,r],f[l+1,j+t-1,i-r]);
                    end;
               f[t,j+t-1,i]:=w;
           end;
         writeln(f[1,m,k]);
      end.