name,x,y:char；
a0,last:string；
a1,a2,a6,a5:longint；
a3,a4:char；
m,k,j,i,t:longint；
begin
readln(m)；
for i:=1 to m do
begin
a0:=’ ’；
read(name)；
while name<>’ ’ do
begin
a0:=a0+name；
read(name)；
end；
readln(a1,a2,x,a3,y,a4,a5)；
begin
if(a2>80)and(a3=’Y’) then a6:=a6+850；
if(a1>85)and(a4=’Y’) then a6:=a6+1000；
if(a1>90) then a6:=a6+2000；
if(a1>85)and(a2>80) then a6:=a6+4000；
if(a1>80)and(a5>=1) then a6:=a6+8000；
end；
k:=k+a6；
if a6>t then begin t:=a6；last:=a0； end；
a6:=0；
end；
writeln(last)；
writeln(t)；
write(k)；
end.
附：
program z；
type
zhao=record
name:string；
qmcj,bjcj:integer；
chxi,chxue:char；
lwen:1..10；
money:longint；
end；
var
n,i:integer；
a:array[1..100] of zhao；
rname:string；
zm,dm:longint；
ch:char；
procedure zong；
begin
for i:=1 to n do with a[i] do
begin
if (qmcj>80) and (lwen>=1) then money:=money+8000；
if (qmcj>85) and (bjcj>80) then money:=money+4000；
if (qmcj>90) then money:=money+2000；
if (chxi=’Y’) and (qmcj>85) then money:=money+1000；
if (bjcj>80) and (chxue=’Y’) then money:=money+850
end
end；
procedure ren；
begin
rname:=a[1].name；
dm:=a[1].money；
zm:=dm；
for i:=2 to n do
begin
zm:=zm+a[i].money；
if dm<a[i].money then
begin
rname:=a[i].name；
dm:=a[i].money
end
end
end；
begin
readln(n)；
for i:=1 to n do with a[i] do
begin
money:=0；
read(ch)；
while ch<>’ ’ do
begin
name:=name+ch；
read(ch)；
end；
read(qmcj)； read(ch)；
read(bjcj)； read(ch)；
read(chxue)； read(ch)；
read(chxi)； read(ch)；
readln(lwen)
end；
zong；
ren；
writeln(rname)；
writeln(dm)；
writeln(zm)；
end.
测评机： Xeost[5]
得分： 100分
提交日期： 2008-11-9 10:54:00
有效耗时： 1578毫秒
测试结果1: 通过本测试点|有效耗时172:ms
测试结果2: 通过本测试点|有效耗时172:ms
测试结果3: 通过本测试点|有效耗时172:ms
测试结果4: 通过本测试点|有效耗时172:ms
测试结果5: 通过本测试点|有效耗时156:ms
测试结果6: 通过本测试点|有效耗时156:ms
测试结果7: 通过本测试点|有效耗时156:ms
测试结果8: 通过本测试点|有效耗时172:ms
测试结果9: 通过本测试点|有效耗时172:ms
测试结果10: 通过本测试点|有效耗时156:ms