排序ex——魔法照片

SSL
洛谷 P1583 魔法照片
题目描述
一共有n（n≤20000）个人（以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]相同，编号小的优先。

分析
一看这题目什么权值啊，序号啊，d[i]啊，可能会被吓到。仔细审题就会发现这是一个很水逼的题目。
两次排序
第一次排序完以后一个循环将属于第i类的额外权值加上去
再次排序
输出
哈啊就这么简单

type
  photo=record s,n:longint; end;
  arr=array[1..50000]of photo;

procedure sort(var a:arr; l,r: longint);
var
  i,j:longint;
  x,y:photo;
begin
  i:=l;
  j:=r;
  x:=a[(l+r) div 2];
  repeat
   while (a[i].s>x.s)or(a[i].s=x.s)and(a[i].n<x.n) do inc(i);
   while (x.s>a[j].s)or(a[j].s=x.s)and(a[j].n>x.n) do dec(j);
   if i<=j then
    begin
      y:=a[i];
      a[i]:=a[j];
      a[j]:=y;
      inc(i);
      dec(j);
     end;
  until i>j;
  if l<j then sort(a,l,j);
  if i<r then sort(a,i,r);
end;

var
  n,k,i:longint;
  a:arr;
  e:array[1..10]of longint;
begin
  readln(n,k);
  for i:=1 to 10 do read(e[i]);
  for i:=1 to n do begin read(a[i].s);a[i].n:=i; end;
  sort(a,1,n);
  for i:=1 to n do
   begin
     a[i].s:=a[i].s+e[(i-1)mod 10+1];
   end;
  sort(a,1,n);
  for i:=1 to k do write(a[i].n,' ');
end.