codeves天梯 合并果子

 在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。

    每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过n-1次合并之后，就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。

    因为还要花大力气把这些果子搬回家，所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1，并且已知果子的种类数和每种果子的数目，你的任务是设计出合并的次序方案，使多多耗费的体力最少，并输出这个最小的体力耗费值。

    例如有3种果子，数目依次为1，2，9。可以先将1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。

分析：经典题就不解释了，这里的合并果子数据不大，所以就用了归并排序兼合并求解。

var
a:array[0..10000] of longint;
n,total:longint;
i:integer;

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

procedure quick_sort(m,n:integer);
var
i,j,x:integer;
begin
i:=m; j:=n; x:=a[(i+j) div 2];
repeat
while a[i]>x do inc(i);
while x>a[j] do dec(j);
if i<=j then
begin
swap(a[i],a[j]);
inc(i); dec(j);
end;
until i>j;
if m<j then quick_sort(m,j);
if i<n then quick_sort(i,n);
end;

procedure insert_sort(n:integer);
var
i,j:integer;
begin
i:=n-1; a[0]:=a
;
while a[i]<a[0] do
begin
a[i+1]:=a[i];
dec(i);
end;
a[i+1]:=a[0];
end;

begin
readln(n);
for i:=1 to n do
read(a[i]);
quick_sort(1,n);
for i:=1 to n-1 do
begin
a[n-i]:=a[n-i]+a[n-i+1];
a[n-i+1]:=0;
inc(total,a[n-i]);
insert_sort(n-i);
end;
writeln(total);
end.