#include <Array.au3>

Global $a[10]

For $i = 0 To 6 Step 1
    $a[$i] = Random()
Next

_ArrayDisplay($a)
_Blubb($a)
_ArrayDisplay($a)

Func _Blubb(ByRef $a)
    For $i = UBound($a) - 1 To 0 Step -1
        If $a[$i] Then
            ReDim $a[$i+1]
            Return
        EndIf
    Next
EndFunc