如何统计前n日收盘价比今日收盘价高的天数

runmode:0;

n:=100;

ss:=0;

for i=1 to n do begin

  if h<h[barpos-i] then begin

     ss:=ss+1;

     break;

   end

end

ss为所求值