xieyuxuan 2015-12-24 02:29:38
点我顶贴
收藏
删除
var n,i,x,j,ans:longint;
a:array[1..10000] of longint;
begin
readln(n);
for i:=1 to n do
begin
read(x);
j:=i-1;
while (j>0)and(x<a[j]) do
begin
a[j+1]:=a[j];
j:=j-1;
end;
a[j+1]:=x;
end;
for i:=2 to n do
begin
a[i]:=a[i]+a[i-1];
ans:=ans+a[i];
x:=a[i];
j:=i+1;
while (j<=n)and(x>a[j]) do
begin
a[j-1]:=a[j];
j:=j+1;
end;
a[j-1]:=x;
end;
writeln(ans);
end.