合并果子 vijos_1097 （离散）_合并果子在一个果园里多多已经将所有的果子打了下来而且按果子的不同种类分成-CSDN博客

本文链接：https://blog.csdn.net/g2523054231/article/details/78936106

描述

在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。
每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过n-1次合并之后，就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。
因为还要花大力气把这些果子搬回家，所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1，并且已知果子的种类数和每种果子的数目，你的任务是设计出合并的次序方案，使多多耗费的体力最少，并输出这个最小的体力耗费值。
例如有3种果子，数目依次为1，2，9。可以先将1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。

格式

输入格式

输入包括两行，第一行是一个整数n(1<＝n<=10000)，表示果子的种类数。第二行包含n个整数，用空格分隔，第i个整数ai(1<＝ai<=20000)是第i种果子的数目。

输出格式

输出包括一行，这一行只包含一个整数，也就是最小的体力耗费值。输入数据保证这个值小于2^31。

样例1

样例输入1

样例输出1

限制

每个测试点1s

var
 i,j,k,n,m,ans,tot:longint;
 a:array[0..10001] of longint;

procedure swap(var a,b:longint);
 var
 t:longint;
begin
 t:=a;
 a:=b;
 b:=t;
end;

procedure qsort(l,r:longint);
 var
 i,j,key:longint;
begin
 i:=l;
 j:=r;
 key:=a[(l+r)div 2];
 repeat
  while a[i]<key do inc(i);
  while a[j]>key do dec(j);
  if i<=j then
   begin
    swap(a[i],a[j]);
    inc(i);
    dec(j);
   end;
 until i>j;
 if l<j then qsort(l,j);
 if i<r then qsort(i,r);
end;

begin
 readln(n);
 a[n+1]:=maxlongint;
 for i:=1 to n do
  read(a[i]);
 qsort(1,n);
 for i:=2 to n do
  begin
   ans:=ans+a[i-1]+a[i];
   a[i]:=a[i-1]+a[i];
   tot:=a[i];
   for j:=i+1 to n+1 do
    if tot<=a[j] then begin
                       a[j-1]:=tot;
                       break;
                      end
                 else a[j-1]:=a[j];
  end;
 writeln(ans);
end.