主题：请老师编写一个统计函数公式

这句代码加了没

加了：

a:=0;

for j=0 to 100 do begin

   for i=0 to 99 do begin

    if h[barpos-i]-l[barpos-i]=j then a:=a+1;

   end

    if a>=90  then begin

      jj:=j;

      break;

    end

end

JJ1:JJ;