for j:=i+1 to n-1 do

begin

f:=min(f,f[j+1,0]+abs(h[i]-h[j])+abs(h[i]-h[j+1])+sum[j]-sum);

f:=min(f,f[j+1,1]+abs(h[j+2]-h[i])+abs(h[i]-h[j])+sum[j]-sum);

end;{！！！！！！！！！！！}

f:=min(f,sum[n]-sum+abs(h[n]-h[i]));

这样全对

for j:=i+1 to n-1 do

begin

f:=min(f,f[j+1,0]+abs(h[i]-h[j])+abs(h[i]-h[j+1])+sum[j]-sum);

f:=min(f,f[j+1,1]+abs(h[j+2]-h[i])+abs(h[i]-h[j])+sum[j]-sum);

f:=min(f,sum[n]-sum+abs(h[n]-h[i]));

end;！！！！！！！！！！！！！！

这样70分

为什么？？？？？？

有区别么？？？