a:array[1..10000] of longint;
s,j,b,t,x,k:longint;
procedure duru;
begin
readln(n);
b:=n;
for i:=1 to n do
read(a[i]);
readln;
end;
procedure insert_sort(x,y:longint);
begin
for i:=2 to n do
begin
t:=a[i];
for j:=1 to i-1 do
if a[j]>t then break;
if a[j]<=t then continue;
for k:=i-1 downto j do
a[k+1]:=a[k];
a[j]:=t;
end;
end;
procedure sort_quick(l,r:longint);
var i,j,x,y:longint;
begin
i:=l;j:=r;
x:=a[(l+r)div 2];
repeat
while a[i]<x do inc(i);
while x<a[j] do dec(j);
if i<=j then
begin
y:=a[i];
a[i]:=a[j];
a[j]:=y;
inc(i);
dec(j);
end;
until i>j ;
if i<j then sort_quick(i,r);
if l<j then sort_quick(l,j);
end;
procedure sum;
begin
repeat
a[2]:=a[1]+a[2];
a[1]:=a[n];
s:=s+a[2];
dec(n);
insert_sort(1,n);
inc(g);
until g>=b ;
end;
begin g:=1;
duru;
sort_quick(1,n);
sum;
writeln(s);
end.
/////////
状态: Unaccepted
测评机: Xeond[6]
得分: 30分
提交日期: 2010-5-9 16:53:00
有效耗时: 1563毫秒
测试结果1: 通过本测试点|有效耗时157ms
测试结果2: 通过本测试点|有效耗时609ms
测试结果3: 通过本测试点|有效耗时797ms
测试结果4: 选手程序运行超过时限
测试结果5: 测试结果错误.错误结果为:481961
正确结果应为:1233019094
测试结果6: 测试结果错误.错误结果为:481961
正确结果应为:131173003
测试结果7: 测试结果错误.错误结果为:481961
正确结果应为:199205993
测试结果8: 选手程序运行超过时限
测试结果9: 测试结果错误.错误结果为:481961
正确结果应为:233393206
测试结果10: 测试结果错误.错误结果为:481961
正确结果应为:260332759
////////////////////////
高手速解啊
别直接发代码
说说哪错了
题目:合并果子
状态: Unaccepted
测评机: Xeond[6]
得分: 30分
提交日期: 2011-4-10 15:37:00
有效耗时: 688毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时235ms
测试结果3: 通过本测试点|有效耗时281ms
测试结果4: 选手程序运行超过时限
测试结果5: 测试结果错误.错误结果为:481961
正确结果应为:1233019094
测试结果6: 测试结果错误.错误结果为:481961
正确结果应为:131173003
测试结果7: 测试结果错误.错误结果为:481961
正确结果应为:199205993
测试结果8: 测试结果错误.错误结果为:481961
正确结果应为:130108340
测试结果9: 选手程序运行超过时限
测试结果10: 测试结果错误.错误结果为:481961
正确结果应为:260332759
type ar=array[1..10001] of longint;
var i,j,t,s,n,w:longint;a:ar;m:int64;
procedure kp(var b:ar;s,t:longint);
var i,j,x,p:longint;
begin
i:=s;j:=t;x:=b[i];
repeat
while (b[j]>=x) and (j>i) do j:=j-1;
if j>i then begin p:=b[i];b[i]:=b[j];b[j]:=p; end;
while (b[i]<=x) and (j>i) do i:=i+1;
if j>i then begin p:=b[i];b[i]:=b[j];b[j]:=p; end;
until i=j;
b[i]:=x;
i:=i+1;j:=j-1;
if s<j then kp(b,s,j);
if i<t then kp(b,i,t);
end;
begin
read(n);
for i:=1 to n do read(a[i]);
kp(a,1,n);
for w:=1 to n-1 do
begin
a[2]:=a[2]+a[1];
m:=m+a[2];
a[1]:=a[n];a[n]:=0;
n:=n-1;kp(a,1,n);end;
write(m);
end.
状态: Unaccepted
测评机: Xeond[6]
得分: 30分
提交日期: 2011-4-10 15:37:00
有效耗时: 688毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时235ms
测试结果3: 通过本测试点|有效耗时281ms
测试结果4: 选手程序运行超过时限
测试结果5: 测试结果错误.错误结果为:481961
正确结果应为:1233019094
测试结果6: 测试结果错误.错误结果为:481961
正确结果应为:131173003
测试结果7: 测试结果错误.错误结果为:481961
正确结果应为:199205993
测试结果8: 测试结果错误.错误结果为:481961
正确结果应为:130108340
测试结果9: 选手程序运行超过时限
测试结果10: 测试结果错误.错误结果为:481961
正确结果应为:260332759
type ar=array[1..10001] of longint;
var i,j,t,s,n,w:longint;a:ar;m:int64;
procedure kp(var b:ar;s,t:longint);
var i,j,x,p:longint;
begin
i:=s;j:=t;x:=b[i];
repeat
while (b[j]>=x) and (j>i) do j:=j-1;
if j>i then begin p:=b[i];b[i]:=b[j];b[j]:=p; end;
while (b[i]<=x) and (j>i) do i:=i+1;
if j>i then begin p:=b[i];b[i]:=b[j];b[j]:=p; end;
until i=j;
b[i]:=x;
i:=i+1;j:=j-1;
if s<j then kp(b,s,j);
if i<t then kp(b,i,t);
end;
begin
read(n);
for i:=1 to n do read(a[i]);
kp(a,1,n);
for w:=1 to n-1 do
begin
a[2]:=a[2]+a[1];
m:=m+a[2];
a[1]:=a[n];a[n]:=0;
n:=n-1;kp(a,1,n);end;
write(m);
end.
状态: Unaccepted
测评机: Xeond[6]
得分: 30分
提交日期: 2011-4-10 15:37:00
有效耗时: 688毫秒
测试结果1: 通过本测试点|有效耗时172ms
测试结果2: 通过本测试点|有效耗时235ms
测试结果3: 通过本测试点|有效耗时281ms
测试结果4: 选手程序运行超过时限
测试结果5: 测试结果错误.错误结果为:481961
正确结果应为:1233019094
测试结果6: 测试结果错误.错误结果为:481961
正确结果应为:131173003
测试结果7: 测试结果错误.错误结果为:481961
正确结果应为:199205993
测试结果8: 测试结果错误.错误结果为:481961
正确结果应为:130108340
测试结果9: 选手程序运行超过时限
测试结果10: 测试结果错误.错误结果为:481961
正确结果应为:260332759