编译通过...

├ 测试数据 01：运行超时...

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

├ 测试数据 03：运行超时...

├ 测试数据 04：运行超时...

├ 测试数据 05：运行超时...

├ 测试数据 06：运行超时...

├ 测试数据 07：运行超时...

├ 测试数据 08：运行超时...

├ 测试数据 09：运行超时...

├ 测试数据 10：运行超时...

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

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

ar a:array[0..10000] of longint;

i,n,x,y,all:longint;

procedure kuai(l,r:longint);

var i,j,x,t:longint;

begin

i:=l; j:=r; x:=a[(l+r) div 2];

repeat

while a[i]>x do inc(i);

while a[j]