runmode:0;

cc:c;

nn:=0;

for i=1 to barpos-1 do begin

    if cc[barpos-i]<=c*0.95 then begin

        nn:=i;

         break;

   end

end

nn為所求值