完美AC

谁拿了最多奖学金
weizhanjun LV 5 @ 2013-10-27 13:02:44

var i,n,max,m,sum,a1,a2,b:longint;
ch,kong,p1,p2:char;
name,ans:string;
begin
readln(n);
max:=0;
for i:=1 to n do begin
m:=0; name:='';
while true do begin
read(ch);
if ch<>' ' then name:=name+ch else break;
end;
readln(a1,a2,kong,p1,kong,p2,b);
if (a1>80)and(b>0) then m:=m+8000;
if (a1>85)and(a2>80) then m:=m+4000;
if a1>90 then m:=m+2000;
if (a1>85)and(p2='Y') then m:=m+1000;
if (a2>80)and(p1='Y') then m:=m+850;
if m>max then begin
max:=m;
ans:=name;
end;
sum:=sum+m;
end;
writeln(ans);
writeln(max);
writeln(sum);
end.

钰雯123 LV 6 @ 2016-04-29 13:26:46

呃呃
zff LV 8 @ 2015-06-27 12:19:00

希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję!
curry--30 LV 7 @ 2013-12-15 10:55:08

。。。
weizhanjun LV 5 @ 2013-11-06 22:43:29

刚来，还不知道，下次知道了。
misakawzh LV 8 @ 2013-11-06 22:06:07

希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję!
华好少年 LV 8 @ 2013-11-05 19:48:57

希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję!
(◕ω≦)ノ LV 4 @ 2013-11-01 17:47:17

似乎比我的简单多了=-=
magina LV 10 @ 2013-10-27 16:34:29

希望以后题解能发到各题目的题解区下，谢谢合作！
I wish that the problem solutions can be sent to each topic area under the problem solution, thank you!
Решение Надежда проблема может быть отправлен в каждой тематической области под решение проблемы, спасибо!
希望以後題解能發到各題目的題解區下，謝謝合作！
ホープ問題解決、問題の解決策の下で、各トピックエリアに送信することができ、ありがとうございました！
La solution du problème de l'espoir peut être envoyé à chaque sujet dans la solution du problème, merci!
Rozwiązanie problemu Nadzieja mogą być wysyłane do każdego obszaru tematu w ramach rozwiązania problemu, dziękuję!