题目:佳佳的魔法照片

状态: Unaccepted

测评机： Xeost[5]

得分： 90分

提交日期： 2010-7-13 18:42:00

有效耗时： 1391毫秒

测试结果1: 通过本测试点|有效耗时156ms

测试结果2: 通过本测试点|有效耗时47ms

测试结果3: 通过本测试点|有效耗时47ms

测试结果4: 通过本测试点|有效耗时47ms

测试结果5: 通过本测试点|有效耗时47ms

测试结果6: 输出过少|用户输出数据少于标准输出的50%[标准输出22位|选手输出1位]

测试结果7: 通过本测试点|有效耗时250ms

测试结果8: 通过本测试点|有效耗时250ms

测试结果9: 通过本测试点|有效耗时266ms

测试结果10: 通过本测试点|有效耗时281ms

提交代码：

var e:array[0..100]of longint;w:array[-1..50000]of array[1..2]of longint;

i,n,k:longint;

procedure qsort(top,bot:longint);

var i,j,x,y:longint;t:array[1..2]of longint;

begin

i:=top;j:=bot;

x:=w[(i+j) div 2][1];y:=w[(i+j) div 2][2];

repeat

while (w[i][1]>x)or((w[i][1]=x)and(w[i][2]<y)) do inc(i);

while (w[j][1]<x)or((w[j][1]=x)and(w[j][2]>y)) do dec(j);

if i<=j then

begin

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

inc(i);dec(j);

end;

until i>j;

if j>top then qsort(top,j);

if i<bot then qsort(i,bot);

end;

begin

readln(n,k);

for i:=1 to 10 do read(e[i]);

for i:=1 to n do

begin read(w[i][1]);w[i][2]:=i end;

qsort(1,n);

for i:=1 to n do

inc(w[i][1],e[(i-1) mod 10+1]);

qsort(1,n);

for i:=1 to k-1 do write(w[i][2],' ');

writeln(w[k][2]);

end.

for i:=1 to k-1 do write(w[i][2],' ');

writeln(w[k][2]);

应该从1到k我的就是这样错的

改一下就对了真不知道什么原因

汗。。。 什么破测试点