[color=red]牛进来看看,错2点,有漏洞吗??[/color]

编译通过...

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

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

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

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

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

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

├ 测试数据 07:答案错误... 

├ 标准行输出 ...1474222...

 ├ 错误行输出 ...1470970...

├ 测试数据 08:答案错误... 

├ 标准行输出 199329

 ├ 错误行输出 199255

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

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

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

Unaccepted 有效得分:80 有效耗时:0ms

var

n,i:longint;

a,b:array[1..100000]of int64;

ans:longint;

procedure quicksort(l,r:longint);

var

x,i,j,t :int64;

begin

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

i:=l;j:=r;

repeat

while a[i]x do dec(j);

if a[i]>=a[j] then

begin

t:=a[i]; a[i]:=a[j]; a[j]:=t;

t:=b[i]; b[i]:=b[j]; b[j]:=t;

inc(i);dec(j);

end

until i>j;

if l

0 条评论

目前还没有评论...

信息

ID
1165
难度
6
分类
模拟 点击显示
标签
递交数
3240
已通过
940
通过率
29%
被复制
14
上传者