NDK 1407 佳佳的魔法照片(Magic Photo)

问题描述：	一共有n个人（以1--n编号）向佳佳要照片，而佳佳只能把照片给其中的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]相同，编号小的优  先。
数据输入：	第一行输出用空格隔开的两个整数，分别是n和k。  第二行给出了10个正整数，分别是E[1]到E[10]。  第三行给出了n个正整数，第i个数表示编号为i的人的权值W[i]。
结果输出：	只需输出一行用空格隔开的k个整数，分别表示最终的W[i]从高到低的人的编号。
样例：	10 10  1 2 3 4 5 6 7 8 9 10  2 4 6 8 10 12 14 16 18 20	10 9 8 7 6 5 4 3 2 1
核心思想：	先按W排序，然后给每个加上E，然后再按W排，输出权值大且编号小的前K个

type
 act=record
 w,num:longint;
 end;
var
 a:array[0..50010]of act;
 e:array[1..10]of longint;
 n,k,i,j:longint;
//======================================================
procedure qsort(l,r:longint);
var
 i,j:longint;
 t,k:act;
begin
 i:=l;j:=r;
 k:=a[(l+r)shr 1];
 repeat
 while (a[i].w>k.w)or((a[i].w=k.w)and(a[i].num<k.num)) do inc(i);
 while (a[j].w<k.w)or((a[j].w=k.w)and(a[j].num>k.num)) do dec(j);
  ifi<=j then
  begin
   t:=a[i];a[i]:=a[j];a[j]:=t;
   inc(i);dec(j);
  end;
 until i>j;
 ifi<r then qsort(i,r);
 ifj>l then qsort(l,j);
end;
//=========================================================
begin
 assign(input,'p1407.in');reset(input);
 assign(output,'p1407.out');rewrite(output);
 readln(n,k);
 fori:=1 to 10 do read(e[i]);
 readln;
 fori:=1 to n do
 begin
  read(a[i].w);
  a[i].num:=i;
 end;
 qsort(1,n);
 fori:=1 to n do
 begin
  inc(a[i].w,e[(i-1)mod 10+1]);
 end;
 qsort(1,n);
 fori:=1 to k do write(a[i].num,' ');
 close(input);close(output);
end.

题目来源：NDK 1407