【寒假任务】 洛谷1051 谁拿了最多奖学金

问题描述
某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：
1) 院士奖学金，每人8000元，期末平均成绩高于80分（>80），并且在本学期内发表1篇或1篇以上论文的学生均可获得；
2) 五四奖学金，每人4000元，期末平均成绩高于85分（>85），并且班级评议成绩高于80分（>80）的学生均可获得；
3) 成绩优秀奖，每人2000元，期末平均成绩高于90分（>90）的学生均可获得；
4) 西部奖学金，每人1000元，期末平均成绩高于85分（>85）的西部省份学生均可获得；
5) 班级贡献奖，每人850元，班级评议成绩高于80分（>80）的学生干部均可获得；
只要符合条件就可以得奖，每项奖学金的获奖人数没有限制，每名学生也可以同时获得多项奖学金。例如姚林的期末平均成绩是87分，班级评议成绩82分，同时他还是一位学生干部，那么他可以同时获得五四奖学金和班级贡献奖，奖金总数是4850元。
现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。
输入
输入文件scholar.in的第一行是一个整数N（1 <= N <= 100），表示学生的总数。接下来的N行每行是一位学生的数据，从左向右依次是姓名，期末平均成绩，班级评议成绩，是否是学生干部，是否是西部省份学生，以及发表的论文数。
输出
输出文件scholar.out包括三行，第一行是获得最多奖金的学生的姓名，第二行是这名学生获得的奖金总数。如果有两位或两位以上的学生获得的奖金最多，输出他们之中在输入文件中出现最早的学生的姓名。第三行是这N个学生获得的奖学金的总数。
样例输入
4
YaoLin 87 82 Y N 0
ChenRuiyi 88 78 N Y 1
LiXin 92 88 N N 0
ZhangQin 83 87 Y N 1
样例输出
ChenRuiyi
9000
28700
算法讨论
这道题不是很难，但是很烦……主要是在输入上要费一些心思（我一开始没想到有100分，只取了两位……），后面的就是一个模拟。最后可以来一个排序，或者扫一遍找到最初出现的最大的数。

const
  maxn=100;
var
  st,d,w:array[1..maxn] of string;
  g,r,p,s,no:array[1..maxn] of longint;
  i,j,n,m,t,ans:longint;
  str,st1:string;

procedure qsort(l,r:longint);
var
  i,j,m,m1,t:longint;
begin
  i:=l; j:=r;
  m:=s[(l+r) div 2];
  m1:=no[(l+r) div 2];
  repeat
    while (s[i]>m) or (s[i]=m) and (no[i]<m1) do
      inc(i);
    while (s[j]<m) or (s[j]=m) and (no[j]>m1) do
      dec(j);
    if i<=j
      then begin
             t:=s[i]; s[i]:=s[j]; s[j]:=t;
             t:=no[i]; no[i]:=no[j]; no[j]:=t;
             st1:=st[i]; st[i]:=st[j]; st[j]:=st1;
             inc(i); dec(j)
           end;
  until i>j;
  if l<j
    then qsort(l,j);
  if i<r
    then qsort(i,r)
end;

begin
  readln(n);
  for i:=1 to n do
    begin
      readln(str);
      for j:=1 to length(str) do
        if str[j]=' '
          then begin
                 st[i]:=copy(str,1,j-1);
                 break
               end;
      inc(j);
      m:=j;
      for j:=m to length(str) do
        if str[j]=' '
          then break;
      st1:=copy(str,m,j-m);
      val(st1,g[i]);
      inc(j);
      m:=j;
      for j:=m to length(str) do
        if str[j]=' '
          then break;
      st1:=copy(str,m,j-m);
      val(st1,r[i]);
      inc(j);
      d[i]:=copy(str,j,1);
      inc(j,2);
      w[i]:=copy(str,j,1);
      inc(j,2);
      st1:=copy(str,j,1);
      val(st1,p[i]);
      no[i]:=i
    end;
  for i:=1 to n do
    begin
      if (g[i]>80) and (p[i]>=1)
        then inc(s[i],8000);
      if (g[i]>85) and (r[i]>80)
        then inc(s[i],4000);
      if g[i]>90
        then inc(s[i],2000);
      if (g[i]>85) and (w[i]='Y')
        then inc(s[i],1000);
      if (r[i]>80) and (d[i]='Y')
        then inc(s[i],850)
    end;
  qsort(1,n);
  for i:=1 to n do
    inc(ans,s[i]);
  writeln(st[1]);
  writeln(s[1]);
  writeln(ans)
end.

Pixiv ID：58998602