对的，不然的话肯定超时的

这个是什么程序？选择排序吗？

找到了pascal代码，并且测通过了：
program fruit;
 var
     a:array[0..15000] of longint;
     i,j,n,k,tem,sum:longint;
 
 procedure init;
 begin
     readln(n);
    for i:=1 to n do
        read(a[i]);
end;

procedure qsort(left,right:integer);  
var i,j,x,t:longint;
begin
   i:=left;  j:=right;
   x:=a[i];
   repeat
     while (a[j]<x)and(i<j) do dec(j);
     if i<j then
     begin
       t:=a[i]; a[i]:=a[j];a[j]:=t;inc(i);
     end;
     while (a[i]>x)and(j>i) do inc(i);
     if i<j then
     begin
       t:=a[i]; a[i]:=a[j];a[j]:=t;dec(j);
     end;
   until i=j;
   inc(i);dec(j);
   if i<right then qsort(i,right);
   if j>left then qsort(left,j);
end;

procedure work;  //合并果子并不断维护数组
begin
   sum:=0;
   while n>=2 do
   begin
        tem:=a[n]+a[n-1];
        sum:=sum+tem;
        j:=1;
        while a[j]>tem do j:=j+1; //插入排序
        for k:=n downto j do
            a[k+1]:=a[k];
        a[j]:=tem;
   n:=n-1;  //整理数组
   end;
end;

begin
    init;
    qsort(1,n);
    work;
    writeln(sum);
end.

思路差不多，但是他用的是插入排序

额，花了3天调试，终于AC了：
#include <stdio.h>
#include <stdlib.h>
FILE *fin,*fout;
void Qsort(int fruit[],int startPos, int endPos)
{
int i,j,temp;
temp=fruit[startPos];
i=startPos; j=endPos;
while(i<j)
{
while(fruit[j]<=temp && i<j)--j;
fruit[i]=fruit[j];
while(fruit[i]>=temp && i<j)++i;
fruit[j]=fruit[i];
}
fruit[i]=temp;
if(i-1>startPos) Qsort(fruit,startPos,i-1);
if(endPos>i+1) Qsort(fruit,i+1,endPos);
}
int main()
{
    int fruit[10000]={0},n,i,ans=0,temp=0,j=0,k=0;
    fin=fopen("fruit.in","r");
    fout=fopen("fruit.out","w");
    fscanf(fin,"%d",&n);
    for(i=0;i<n;i++)
    fscanf(fin,"%d",&fruit[i]);
    Qsort(fruit,0,n-1);  
    for(i=n-1;i>0;i--)
    {
    temp=fruit[i]+fruit[i-1];
    ans=ans+temp;
    j=0;
    while(fruit[j]>temp)j=j+1;
    for(k=n-1;k>=j;k--)
    fruit[k+1]=fruit[k];
    fruit[j]=temp;
    }
    fprintf(fout,"%d",ans);
    system("pause");
    return 0;
}

感谢 qq1023569223和点线面