全国信息学奥赛1995~2004年分类试题汇编完善程序

的这 6 个整数。

endfor;

writeln('the max length is: ', max); write('the string is: ');

34 26 15 44 35 46 4 0 18

for j4:=j1+1 to j2-1 do

end.

如上例中：

while 2 do begin a[j]:=j; 3 ; j:=j+1 end;