测评机: Xeond[6]
得分: 100分
提交日期: 2010-7-23 16:11:00
有效耗时: 3625毫秒
测试结果1: 通过本测试点|有效耗时219ms
测试结果2: 通过本测试点|有效耗时156ms
测试结果3: 通过本测试点|有效耗时157ms
测试结果4: 通过本测试点|有效耗时218ms
测试结果5: 通过本测试点|有效耗时250ms
测试结果6: 通过本测试点|有效耗时532ms
测试结果7: 通过本测试点|有效耗时531ms
测试结果8: 通过本测试点|有效耗时469ms
测试结果9: 通过本测试点|有效耗时515ms
测试结果10: 通过本测试点|有效耗时578ms
提交代码: view sourceprint?01.program fruit;
02.var n,i,s,t,j,k:longint;
03.
a:array[1..10000] of longint;
04.
procedure quicksort(l,r:longint);
05.
var i,j,x,t:longint;
06.
begin
07.
i:=l; j:=r; x:=a[(l+r)div 2];
08.
repeat
09.
while a[i]<x do inc(i);
10.
while a[j]>x do dec(j);
11.
if (a[i]>=a[j])and(i<=j) then begin
12.
t:=a[i]; a[i]:=a[j]; a[j]:=t;
13.
inc(i); dec(j);
14.
end;
15.
until i>j;
16.
if j>l then quicksort(l,j);
17.
if i<r then quicksort(i,r);
18.end;
19.begin
20.
readln (n);
21.
for i:=1 to n do read (a[i]);
22.
quicksort (1,n);
23.
for i:=1 to n-1 do begin
24.
t:=a[1]+a[2];
25.
s:=s+t;
26.
j:=3;
27.
while (t>a[j]) and (j<=n) do j:=j+1;
28.
j:=j-1; n:=n-1;
29.
for k:=1 to j-2 do a[k]:=a[k+2];
30.
a[j-1]:=t;
31.
for k:=j to n do a[k]:=a[k+1];
32.
end;
33.
writeln (s);
34.end.
Powered By RenQing | Developping By Wish Azuis 帮助 关于
鲁ICP备05014231号
Processed in 0.0625 second(s). Copyright (c) 2007-2009 Www.RQNOJ.Cn. All Rights R