编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 88ms

├ 测试数据 09：答案正确... 291ms

├ 测试数据 10：答案正确... 416ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：795ms

终于过了

用了一次快排

应该去参加比赛的————

提意有点不懂~

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

program fgdfs;

var n,m,i,j,t:integer;

a:array[1..10]of integer;

begin

read(n,m); for i:=1 to n do read(a[i]);

for i:=1 to n do

for j:=i+1 to n do

begin

if a[i]

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：运行时错误...|错误号: -1073741819

├ 测试数据 09：运行超时|无输出...

├ 测试数据 10：运行时错误...|错误号: -1073741819

---|---|---|---|---|---|---|---|-

Unaccepted 有效得分：70 有效耗时：0ms

大牛们解释一下？

两遍排序，5个数组，int64，122ms，差点超时——我废掉了。

为什么我3次快排会溢出....

BS评测机,同一个题,小号A了,大号超时!!!!!!!!!!!!!!!!!!!!!!

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 0ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：0ms

too easy！

Var

zj:array[1..100000,1..4]of qword;

x:array[1..2]of longint;

i,j,k,n,m:longint;

//====================================

Procedure init;

begin

for i:=1 to 2 do

read(x[i]);

readln;

for i:=1 to x[1] do

read(zj);

readln;

for i:=1 to x[2] do

begin

read(zj);

zj:=i;

end;

end;

//=====================================

Procedure qsort(l,r,a,b:longint);

qsort随机的好

2次qosrt也可以

b[0]=b[m];

for(i=1;i

qsort 最好随机化

我更喜欢shell排序

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 322ms

├ 测试数据 10：答案正确... 56ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：378ms

qsort作为不稳定排序在这里真的不如heap么。。。？一般来说平均效果应该比heap要好才对。。。。。。

3个QSORT...ORZ

begin

read(n,m);

for i:=1 to n do read(a[i]);

for i:=1 to m do begin read(b[i]);t[i]:=i;end;

sort(1,n);

sort2(1,m);

tt:=1;

for i:=1 to n do begin

if tt>m then tt:=1;

inc(s[tt],a[i]);

inc(tt);//注意这里不要直接mod

end;

sort3(1,m);

for i:=1 to m do write(s[i],' ');

end.

编译通过...

├ 测试数据 01：答案正确... 0ms

├ 测试数据 02：答案正确... 0ms

├ 测试数据 03：答案正确... 0ms

├ 测试数据 04：答案正确... 0ms

├ 测试数据 05：答案正确... 0ms

├ 测试数据 06：答案正确... 0ms

├ 测试数据 07：答案正确... 0ms

├ 测试数据 08：答案正确... 0ms

├ 测试数据 09：答案正确... 9ms

├ 测试数据 10：答案正确... 0ms

---|---|---|---|---|---|---|---|-

Accepted 有效得分：100 有效耗时：9ms

我的快排比人家的慢

var n,m:longint;

f:array[1..100000] of longint;

x,y:array[1..100000] of qword;

s:array[1..100000] of qword;

i,j,k:longint;

procedure psx(v1,v2:longint);

var i,j:longint;

t,mid:qword;

begin i:=v1; j:=v2; mid:=x[(i+j) shr 1];

while i

哎,我用快排加随机化咋就是超时了6个点呢?

后来用heap就0s过了呢???

过了哈

编译通过...