|
发表于 2010-11-14 23:59:43
|
显示全部楼层
program scholarship;
var i,n,he,m,max,qi,wr,cl:longint;
k,ch,we,gan:char;
maxname,name:string;
begin
readln(n);
max:=-1;
he:=0;
k:=' ';
for i:=1 to n do
begin
read(ch);
name:='';
while ch<>' ' do
begin
name:=name+ch;
read(ch);
end;
readln(qi,cl,k,gan,k,we,wr);
m:=0;
if (qi>80) and (wr>=1) then m:=m+8000;
if (qi>85) and (cl>80) then m:=m+4000;
if (qi>90) then m:=m+2000;
if (qi>85) and (we='Y') then m:=m+1000;
if (cl>80) and (gan='Y') then m:=m+850;
inc(he,m);
if m>max then begin max:=m;
maxname:=name;
end;
end;
writeln(maxname);
writeln(max);
writeln(he);
readln;
readln;
end. |
|