排序ex——奖学金

洛谷 P1093 奖学金
题目描述
某小学最近得到了一笔赞助，打算拿出其中一部分为学习成绩优秀的前5名学生发奖学金。期末，每个学生都有3门课的成绩:语文、数学、英语。先按总分从高到低排序，如果两个同学总分相同，再按语文成绩从高到低排序，如果两个同学总分和语文成绩都相同，那么规定学号小的同学 排在前面，这样，每个学生的排序是唯一确定的。

任务：先根据输入的3门课的成绩计算总分，然后按上述规则排序，最后按排名顺序输出前五名名学生的学号和总分。注意，在前5名同学中，每个人的奖学金都不相同，因此，你必须严格按上述规则排序。例如，在某个正确答案中，如果前两行的输出数据(每行输出两个数:学号、总分) 是:

7 279 5 279 这两行数据的含义是:总分最高的两个同学的学号依次是7号、5号。这两名同学的总分都是 279 (总分等于输入的语文、数学、英语三科成绩之和) ，但学号为7的学生语文成绩更高一些。如果你的前两名的输出数据是:

5 279 7 279 则按输出错误处理，不能得分。

分析
一看就知道很简单的题目
算总分，搞学号这些东西应该不用讲了吧？【手动滑稽】
排序只用附带一个条件（A语文成绩=B语文成绩且A学号比B学号小/大）
怒水一发

type
  sort=record b,c,m,e,s:longint; end;
  arr=array[0..1000]of sort;
var
  n:longint;
  a:arr;

procedure init;
var
  i:longint;
begin
  readln(n);
  for i:=1 to n do
   begin readln(a[i].c,a[i].m,a[i].e); a[i].s:=a[i].c+a[i].m+a[i].e;a[i].b:=i; end;
end;

procedure quicksort(low,high:longint);
var
  i,j,mid,mib,mic:longint;
  temp:sort;
begin
  i:=low;j:=high;mid:=a[(low+high)div 2].s;mib:=a[(low+high)div 2].b;mic:=a[(low+high)div 2].c;
  repeat
   while (a[i].s>mid)or((a[i].s=mid)and(a[i].c>mic))or((a[i].s=mid)and(a[i].c=mic)and(a[i].b<mib)) do inc(i);
   while (a[j].s<mid)or((a[j].s=mid)and(a[j].c<mic))or((a[j].s=mid)and(a[j].c=mic)and(a[j].b>mib)) do dec(j);
   if i<=j then
    begin
      temp:=a[i];a[i]:=a[j];a[j]:=temp;
      inc(i);dec(j);
    end;
  until i>j;
  if i<high then quicksort(i,high);
  if low<j then quicksort(low,j);
end;

procedure print;
var
  i,s,ss:longint;
begin
  for i:=1 to 5 do writeln(a[i].b,' ',a[i].s);
end;

begin
  init;
  quicksort(1,n);
  print;
end.