测试结果2: 运行错误|普通保护错误
测试结果3: 运行错误|普通保护错误
测试结果4: 运行错误|普通保护错误
测试结果5: 运行错误|普通保护错误
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误
提交代码： var a:array[1..100000,1..2]of longint；
e:array[1..10]of longint；
n,k,i,j:longint；
procedure qsort；
procedure sort(l,r:integer)；
var i,j,x,y,t:integer；
begin
i:=l；
j:=r；
x:=a[(l+r)div 2,1]；
t:=a[(l+r)div 2,2]；
repeat
while(a[i,1]>x)or(a[i,1]=x)and(a[i,2]<t)do inc(i)；
while(a[j,1]<x)or(a[i,1]=x)and(a[i,2]>t) do dec(j)；
if not(i>j)then
begin
y:=a[i,1]；
a[i,1]:=a[j,1]；
a[j,1]:=y；
y:=a[i,2]；
a[i,2]:=a[j,2]；
a[j,2]:=y；
inc(i)；
dec(j)；
end；
until i>j；
if l<j then sort(l,j)；
if i<r then sort(i,r)；
end；
begin
sort(1,n)；
end；
begin
readln(n,k)；
for i:=1 to 10 do read(e[i])；
readln；
for i:=1 to n do
begin
read(a[i,1])；
a[i,2]:=i；
end；
qsort；
for i:=1 to n do
a[i,1]:=a[i,1]+e[(i-1)mod 10+1]；
qsort；
for i:=1 to k-1 do
write(a[i,2],’ ’)；
if k<>0 then write(a[k,2])；
end.
哪位大牛知道这咋回事！！！！！！！！
快疯了！！！！！！！！！！！！！！！
快排中间
while(a[i,1]>x)or(a[i,1]=x)and(a[i,2]<t)do inc(i)；
while(a[j,1]<x)or(a[i,1]=x)and(a[i,2]>t) do dec(j)；
改为
while(a[i,1]>x)or((a[i,1]=x)and(a[i,2]<t))do inc(i)；
while(a[j,1]<x)or((a[i,1]=x)and(a[i,2]>t)) do dec(j)；
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 通过本测试点|有效耗时46:ms
测试结果3: 通过本测试点|有效耗时47:ms
测试结果4: 通过本测试点|有效耗时47:ms
测试结果5: 测试结果错误.错误结果为:21 29 24 53 60 15 92 61
正确结果应为:21 29 24 53 60 15 7 61
测试结果6: 运行错误|普通保护错误
测试结果7: 运行错误|普通保护错误
测试结果8: 运行错误|普通保护错误
测试结果9: 运行错误|普通保护错误
测试结果10: 运行错误|普通保护错误
提交代码： var a:array[0..100000,1..2]of longint；
e:array[1..10]of longint；
n,k,i,j:longint；
procedure qsort；
procedure sort(l,r:longint)；
var i,j,x,y,t:longint；
begin
i:=l；
j:=r；
x:=a[(l+r)div 2,1]；
t:=a[(l+r)div 2,2]；
repeat
while(a[i,1]>x)or((a[i,1]=x)and(a[i,2]<t))do inc(i)；
while(a[j,1]<x)or((a[i,1]=x)and(a[i,2]>t)) do dec(j)；
if not(i>j)then
begin
y:=a[i,1]；
a[i,1]:=a[j,1]；
a[j,1]:=y；
y:=a[i,2]；
a[i,2]:=a[j,2]；
a[j,2]:=y；
inc(i)；
dec(j)；
end；
until i>j；
if l<j then sort(l,j)；
if i<r then sort(i,r)；
end；
begin
sort(1,n)；
end；
begin
readln(n,k)；
for i:=1 to 10 do read(e[i])；
readln；
for i:=1 to n do
begin
read(a[i,1])；
a[i,2]:=i；
end；
qsort；
for i:=1 to n do
a[i,1]:=a[i,1]+e[(i-1)mod 10+1]；
qsort；
for i:=1 to k-1 do
write(a[i,2],’ ’)；
if k<>0 then write(a[k,2])；
end.
sort错误
while(a[j,1]<x)or((a[j,1]=x)and(a[j,2]>t)) do dec(j)；
我写成了
while(a[j,1]<x)or((a[i,1]=x)and(a[i,2]>t)) do dec(j)；
ac了