您所在位置：主题：（98，初赛提高组。三、1）
cskeleton
[专家分：10] 发布于 2005-10-14 13:31:00
program exp1(input,output);
VAR i, s, max:integer;
a :array[1..10] of integer;
Begin
for i:=1 to 10 do read(a[i]);
max:=a[1]; s:=a[1];
for i:=2 to 10 do
begin if s<0 then s:=0;
s:=s+a[i];
if s>max then max:=s
end;
writeln('max=',MAX)；
End.
这个程序，在这一句begin if s<0 then s:=0;，应该是每一次，s都被置0了啊！
（98，初赛提高组。三、1）
VAR i, s, max:integer;
a :array[1..10] of integer;
Begin
for i:=1 to 10 do read(a[i]);
max:=a[1]; s:=a[1];
for i:=2 to 10 do
begin if s<0 then s:=0;
s:=s+a[i];
if s>max then max:=s
end;
writeln('max=',MAX)；
End.
这个程序，在这一句begin if s<0 then s:=0;，应该是每一次，s都被置0了啊！
（98，初赛提高组。三、1）
