numeric  getrealsize(array<Numeric> arr)
    {
        Numeric i;
        numeric result;
        for i = 0 to GetArraySize(arr)-1
        {
            If(arr[i]<>0) result = i;
        }
        return result;
    }

有效长度定义类似小数的有效位数，按数组最后一个非0元素的位置作为数组的有效长度。