问一下这有什么错

var n,i,j,p,k,max:longint;
s,s1,s2,s3,s4,s5,s6,ss:string;
begin
readln(n);
for i:=1 to n do
begin
p:=0;
readln(s);
j:=pos(' ',s);s1:=copy(s,1,j-1);
delete(s,1,j);j:=pos(' ',s);s2:=copy(s,1,j-1);
delete(s,1,j);j:=pos(' ',s);s3:=copy(s,1,j-1);
delete(s,1,j);j:=pos(' ',s);s4:=copy(s,1,j-1);
delete(s,1,j);j:=pos(' ',s);s5:=copy(s,1,j-1);
delete(s,1,j);s6:=s;
if (s3>'80')and(s4='Y') then p:=p+850;
if (s2>'85')and(s5='Y') then p:=p+1000;
if s2>'90' then p:=p+2000;
if (s2>'85')and(s3>'80') then p:=p+4000;
if (s2>'80')and(s6>'0') then p:=p+8000;
if p>max then begin ss:=s1;max:=p; end;
k:=k+p;
end;
writeln(ss);
writeln(max);
writeln(k);
end.

0 条评论

目前还没有评论...

信息

ID
1001
难度
5
分类
模拟 点击显示
标签
递交数
39038
已通过
12700
通过率
33%
被复制
120
上传者