#3 smx2387561@2012-04-06 20:13:00
25550
回复
删除
var i,j,k,m,n,p1,p2:longint;
begin
readln(n);
for i:=1 to n do
begin
read(m);
if odd(i) then p1:=p1+m else p2:=p2+m;
end;
if p1>p2 then begin writeln(p1,' ',p2) end else
writeln(p2,' ',p1);
end.
这样做为什么只有60分?