NOIP2005 提高组第一题 谁拿了最多奖学金

谁拿了最多的奖学金

题目描述

  某校的惯例是在每学期的期末考试之后发放奖学金。发放的奖学金共有五种，获取的条件各自不同：

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元。 

　　现在给出若干学生的相关数据，请计算哪些同学获得的奖金总数最高（假设总有同学能满足获得奖学金的条件）。 

时间复杂度  O（n）

代码

   const
  maxn=100;
var
  a,g1,g2,g3:array[0..maxn] of longint;
  s:array[0..maxn] of string;
  c1,c2:array[0..maxn] of char;
  n,ans,i,max:longint;
  ch:char;


begin
  readln(n);
  for i:=1 to n do
    begin
      read(ch);
      s[i]:=s[i]+ch;
      while ch<>' ' do
        begin
          read(ch);
          s[i]:=s[i]+ch;
        end;
      readln(g1[i],g2[i],ch,c1[i],ch,c2[i],g3[i]);
    end;
  for i:=1 to n do
    begin
      if (g1[i]>80) and (g3[i]>0)
        then inc(a[i],8000);
      if (g1[i]>85) and (g2[i]>80)
        then inc(a[i],4000);
      if g1[i]>90 then inc(a[i],2000);
      if (g1[i]>85) and (c2[i]='Y')
        then inc(a[i],1000);
      if (g2[i]>80) and (c1[i]='Y')
        then inc(a[i],850);
    end;
  for i:=1 to n do
    begin
      if a[i]>max then
        begin
          max:=a[i];
          s[0]:=s[i];
        end;
      inc(ans,a[i]);
    end;
  writeln(s[0]);
  writeln(max);
  writeln(ans);
end.