SSL1040合并果子

题目

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

题意

有n个数，每次取最小的两个数相加，和计入结果中，删去取出的数，把它们的和加入数组中。最后输出结果。

题解

思路

用堆进行排序。
先建堆
for　i:=n——2
begin
取出最小的两个数相加
删去
和加入数组中
维护堆
end
输出结果

注意

1.删数时会把最后一个数移上来，这时最后一个数要赋值为maxlongint，而不是0；
2.维护堆时，要先把第二（或三）节点下移，再下移第一节点，因为如果先下移第一节点会错，原理不解释。

代码

var
  n,i,j,p:longint;
  ans:int64;
  a:array[1..10005]of longint;

procedure down(i,n:longint);
var
  t,i,j:longint;
begin
  j:=i;
  i:=i*2;
  if i>n then exit;
  repeat
    if (a[i]>a[i+1])and(i+1<=n) then inc(i);
    if a[i]<a[j] then
      begin
        t:=a[i];a[i]:=a[j];a[j]:=t;
      end
      else break;
  j:=i;
  i:=i*2;
  until i>n;
end;

begin
  readln(n);
  for i:=1 to n do
    read(a[i]);
  for i:=n downto 1 do
    down(i,n);
  for i:=n downto 2 do
    begin
     p:=2;
      if a[p]>a[p+1] then inc(p);
      ans:=ans+a[1]+a[p];
      a[p]:=a[p]+a[1];
      a[1]:=a[i];
      a[i]:=maxlongint;
      down(p,i-1);
      down(1,i-1);
    end;
  writeln(ans);
end.