b[j+1]:=300+b[j]-a; （J的初值在哪） 改成b把里面的循环干掉，就是那个J的，又不是高精度，搞那么复杂干什么太猥琐了，建议你找一些还行的程序；比如说我的；这题就是很简单的模拟不要想复杂了；program ex1;var a:array[0..7] of longint; i,k,j:longint;beginfor i:=1 to 7 do
begin readln(k,j); a:=k+j; end;a[0]:=0; j:=0;for i:=7 downto 1 do
if a>8 thenif (a>=a[j]) then j:=i;writeln(j);end.
