测评机： Xeost[5]
得分： 0分
提交日期： 2010-4-15 13:37:00
有效耗时： 该状态没有记录
测试结果错误.错误结果为:
YDCmkIYBPOy
15000
332750
正确结果应为:YDCmkIYBPOy
15000
332750
测试结果错误.错误结果为:
IXrLPdJhEekBRgsbkqI
15850
315050
正确结果应为:IXrLPdJhEekBRgsbkqI
15850
315050
测试结果错误.错误结果为:
LyFr
15850
376500
正确结果应为:LyFr
15850
376500
测试结果错误.错误结果为:
HHeXOMfgB
15000
311200
正确结果应为:HHeXOMfgB
15000
311200
测试结果错误.错误结果为:
IlB
14000
320050
正确结果应为:IlB
14000
320050
测试结果错误.错误结果为:
DGMqW
15000
350700
正确结果应为:DGMqW
15000
350700
测试结果错误.错误结果为:
F
15000
324650
正确结果应为:F
15000
324650
测试结果错误.错误结果为:
YBqilxkGZJx
15000
366150
正确结果应为:YBqilxkGZJx
15000
366150
测试结果错误.错误结果为:
RaC
12000
249600
正确结果应为:RaC
12000
249600
测试结果错误.错误结果为:
WtEEnIDxjkneYioJpF
15850
351900
正确结果应为:WtEEnIDxjkneYioJpF
15850
351900
type
records=record
mz:string;
pj:integer;
py:integer;
gb:boolean;
xb:boolean;
lw:boolean;
jxj:longint;
end;
var
a:array[1..100]of records;
i,max,n:integer;
c:char;
s:longint;
begin
readln(n);
for i:=1 to n do
begin
read(c);
while c<>' ' do
begin
a[i].mz:=a[i].mz+c;
read(c);
end;
read(a[i].pj,a[i].py);
read(c);
read(c);
if c='Y' then a[i].gb:=true else a[i].gb:=false;
read(c);
read(c);
if c='Y' then a[i].xb:=true else a[i].xb:=false;
read(c);
read(c);
if c>'0' then a[i].lw:=true else a[i].lw:=false;
a[i].jxj:=0;
end;
for i:=1 to n do
begin
if (a[i].pj>80)and a[i].lw then a[i].jxj:=a[i].jxj+8000;
if (a[i].pj>85)and(a[i].py>80) then a[i].jxj:=a[i].jxj+4000;
if a[i].pj>90 then a[i].jxj:=a[i].jxj+2000;
if (a[i].pj>85)and a[i].xb then a[i].jxj:=a[i].jxj+1000;
if (a[i].py>80)and a[i].gb then a[i].jxj:=a[i].jxj+850;
s:=s+a[i].jxj;
end;
max:=1;
for i:=2 to n do
if a[i].jxj>a[max].jxj then max:=i;
writeln(a[max].mz);
writeln(a[max].jxj);
write(s);
end.