佳佳的魔法照片-ssl 1255

题意：

 而佳佳只能把照片给其中的k个人。佳佳按照与他们的关系好坏的程度给每个人赋予了一个初始权值W[i]。然后将初始权值从大到小进行排序，每人就有了一个序号D[i]（取值同样是1--n）。按照这个序号对10取模的值将这些人分为10类。也就是说定义每个人的类别序号C[i]的值为(D[i]-1) mod 10 +1，显然类别序号的取值为1--10。第i类的人将会额外得到E[i]的权值。你需要做的就是求出加上额外权值以后，最终的权值最大的k个人，并输出他们的编号。在排序中，如果两人的W[i]相同，编号小的优先。

分析：

将初始权值从大到小进行排序，每人就有了一个序号D[i]（取值同样是1--n），题目要求是直接排序，按排序编号。

type    int=longint;

var
        n,k,i:int;
        a,b,d:array[0..50001]of int;
procedure qsort(l,r:int);
var
        i,j,p,t,m:int;
begin
        i:=l; j:=r; p:=a[(l+r) div 2]; m:=d[(l+r) div 2];
        repeat
                while (a[i]>p) or ((a[i]=p)and(d[i]<m)) do inc(i);
                while (a[j]<p) or ((a[j]=p)and(d[j]>m)) do dec(j);
                if i<=j then
                begin
                        t:=a[i]; a[i]:=a[j]; a[j]:=t;
                        t:=d[i]; d[i]:=d[j]; d[j]:=t;
                        inc(i);
                        dec(j);
                end;
        until   i>j;
        if i<r then qsort(i,r);
        if l<j then qsort(l,j);
end;


begin
        readln(n,k);
        for i:=1 to 10 do read(b[i]);
        for i:=1 to n do read(a[i]);
        for i:=1 to n do d[i]:=i;
        qsort(1,n);
        for i:=1 to n do a[i]:=a[i]+b[(i-1) mod 10+1];
        qsort(1,n);
        if k=0 then halt;
        write(d[1]);
        for i:=2 to k do write(' ',d[i]);
        writeln;
end.