合并果子<问题描述> 在一个果园里，多多已经将所有的果子打了下来，而且按果子的不同种类分成了不同的堆。多多决定把所有的果子合成一堆。 每一次合并，多多可以把两堆果子合并到一起，消耗的体力等于两堆果子的重量之和。可以看出，所有的果子经过n-1次合并之后，就只剩下一堆了。多多在合并果子时总共消耗的体力等于每次合并所耗体力之和。 因为还要花大力气把这些果子搬回家，所以多多在合并果子时要尽可能地节省体力。假定每个果子重量都为1，并且已知果子的种类数和每种果子的数目，你的任务是设计出合并的次序方案，使多多耗费的体力最少，并输出这个最小的体力耗费值。 例如有3种果子，数目依次为1，2，9。可以先将1、2堆合并，新堆数目为3，耗费体力为3。接着，将新堆与原先的第三堆合并，又得到新的堆，数目为12，耗费体力为12。所以多多总共耗费体力=3+12=15。可以证明15为最小的体力耗费值。 - 输入文件 输入文件fruit.in包括两行，第一行是一个整数n(1<＝n<=10000)，表示果子的种类数。第二行包含n个整数，用空格分隔，第i个整数ai(1<＝ai<=20000)是第i种果子的数目。 - 输出文件 输出文件fruit.out包括一行，这一行只包含一个整数，也就是最小的体力耗费值。输入数据保证这个值小于231。 - 样例输入3 1 2 9 - 样例输出15 - 数据规模对于30％的数据，保证有n<=1000： 对于50％的数据，保证有n<=5000； 对于全部的数据，保证有n<=10000。

Program fruit; Var a,b:array[1..20000] of longint; i,n,num,j,k:longint; Begin assign(input,'pas\fruit.in'); reset(input); readln(n); for i:=1 to n do Begin read(k); inc(a[k]); end; close(input); For i:=1 to 20000 do Begin If a[i]<>0 then begin inc(j);b[j]:=a[i]*i; end; end; For i:=1 to j-1 do Begin b[1]:=b[1]+b[i+1]; num:=num+b[1]; end; write(num); end.

问题在最后， For i:=1 to j-1 do Begin b[1]:=b[1]+b[i+1]; num:=num+b[1]; end; 这儿，每次都是要排序的哦！不然怎么确定b[1]怎么一定大于b[i+2]？

用堆比较好

a,b:array[1..20000] of longint; i,n,num,j,k:longint; 这样定义不浪费内存呒?

用fp就不会主要是时间问题

昏了~这种题目你居然这样做最优做法设2个数组分别表示B X；B为单堆，X为合并了的每次的合并方法就3中b[i]+b[j]b[i]+x[i1];x[i1]+x[j2];找个最小的做 然后控制指针 OK~~~~~

强人

贪心算法。。。

这到题很简单的
贪心