CODEVS 2102 石子归并 2

【题目描述 Descriptin】

在一个园形操场的四周摆放N堆石子,现要将石子有次序地合并成一堆.规定每次只能选相邻的2堆合并成新的一堆，并将新的一堆的石子数，记为该次合并的得分。
试设计出1个算法,计算出将N堆石子合并成1堆的最小得分和最大得分.

【输入描述 Input Description】
数据的第1行试正整数N,1≤N≤100,表示有N堆石子.第2行有N个数,分别表示每堆石子的个数.

输出描述 Output Description
输出共2行,第1行为最小得分,第2行为最大得分.

【样例输入 Sample Input】
4
4 4 5 9

【样例输出 Sample Output】

43
54

【解题思路】

经典环形DP，公式大家都懂，最后寻找最大值从f[1,n],f[2,n+1]……等中找

 program StongUnion;
 var
 f1,f2:array[..,..] of longint;
 a,s:array[..] of longint;
 i,j,p,k,n,ans1,ans2:Longint;
 begin
     read(n);
     for i:= to n do
     begin
         read(a[i]);
         s[i]:=s[i-]+a[i];
         a[i+n]:=a[i];
     end;
     for i:=n+ to *n do
     s[i]:=s[i-]+a[i];

     for p:= to n- do
         for i:= to n*-p do
         begin
             j:=i+p;
             f1[i,j]:=maxint;;
             f2[i,j]:=;
             for k:=i to j- do
             begin
                 if f1[i,j]>f1[i,k]+f1[k+,j] then
                 f1[i,j]:=f1[i,k]+f1[k+,j];
                 if f2[i,j]<f2[i,k]+f2[k+,j] then
                 f2[i,j]:=f2[i,k]+f2[k+,j];
             end;
             f1[i,j]:=f1[i,j]+s[j]-s[i-];
             f2[i,j]:=f2[i,j]+s[j]-s[i-];
         end;
         ans1:=maxlongint div ;
         ans2:=-;
         for i:= to n do
         begin
             if f1[i,n+i-]<ans1 then ans1:=f1[i,n+i-];
             if f2[i,n+i-]>ans2 then ans2:=f2[i,n+i-];
         end;
         writeln(ans1);
         writeln(ans2);
 end.