哪位大哥帮我写个小函数，应该挺简单的

Question

//例：长度为100的数组arrayreal前若N个有值，N后面的没有赋过值，要求函数返回N的值
function ComputePiece(ArrayReal : DataReal) : integer; //DataReal : array[1..100] of real
var
  i : integer;
begin
  //这里不会
  result := i;
end;

Answer 1

for i:=0 to (length(arrayreal)-2) do
  begin
    if array[i]<>0 and array[i]=0 then
      break; 
  end;