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
思路
O(n)
按题意模拟,排序
vara,e,d:array[1..1000]of string;b,c,f,g:array[1..1000]of longint;
n,k,i,j,max,ans:longint;
s:string;
begin
readln(n);
for i:=1 to n do
begin
readln(s);
k:=pos(' ',s);a[i]:=copy(s,1,k-1);delete(s,1,k);
k:=pos(' ',s);val(copy(s,1,k-1),b[i]);delete(s,1,k);
k:=pos(' ',s);val(copy(s,1,k-1),c[i]);delete(s,1,k);
k:=pos(' ',s);
d[i]:=copy(s,1,k-1);delete(s,1,k);
k:=pos(' ',s);
e[i]:=copy(s,1,k-1);delete(s,1,k);
val(copy(s,1,k-1),f[i]);
if (b[i]>80)and(f[i]>0) then g[i]:=g[i]+8000;
if (b[i]>85)and(c[i]>80) then g[i]:=g[i]+4000;
if (b[i]>90) then g[i]:=g[i]+2000;
if (b[i]>85)and(e[i]='Y') then g[i]:=g[i]+1000;
if (c[i]>80)and(d[i]='Y') then g[i]:=g[i]+850;
end;
max:=0;
for i:=1 to n do
begin
if max<g[i] then
begin
max:=g[i];
j:=i;
end;
end;
writeln(a[j]);
writeln(g[j]);
for i:=1 to n do ans:=ans+g[i];writeln(ans);
end.