[Массивы] двухмерный массив, удаление, добавление строк

For $n = UBound($Array) - 1 to 0 Step -1
 If $uslovie Then
_ArrayDelete($Array, $n)
 EndIf
Next

ReDim $massiv[UBound($massiv) + 1]

$i = 1 ;Start (или UBound($Array) - 1)
Do
    If $uslovie Then
        _ArrayDelete($Array, $i)
    Else
        $i += 1 ; Или -=
    EndIf
Until ($i = UBound($Array)) ;Или 0

#include <Array.au3>
Local $a[1000]
For $i = 0 To 999
	$a[$i] = Random(1, 10, 1)
Next
_ArrayDisplay($a, UBound($a) & ' ячеек до удаления')

$idx = 0
For $i = 0 To UBound($a) - 1
	If $a[$i] <> 1 Then ; удаление ячеек, значение которых равно 1
		$a[$idx] = $a[$i]
		$idx += 1
	EndIf
Next
If $idx = 0 Then
	ReDim $a[1]
	$a[0] = ''
Else
	ReDim $a[$idx]
EndIf
_ArrayDisplay($a, UBound($a) & ' ячеек после удаления')

#include <Array.au3>

; Создание тестового массива
Local $a[1000] = [999] ; массив на 1000 элементов, в первом элементе, индекс которого [0], находится число элементов
$DeleteItem = 1 ; число, ячейки с которым будут удалены из массива

For $i = 1 To 999
	$a[$i] = Random(1, 10, 1)
Next

; Начало операции удаления ячеек, значение которых равно 1
$n = 0
For $i = 1 To $a[0]
	If $a[$i] = $DeleteItem Then ; вычисляем индекс от которого выполнять перезапись массива
		$n = $i
		ExitLoop
	EndIf
Next

_ArrayDisplay($a, $a[0] & ' ячеек до удаления, ' & $n & ' - позиция начала перезаписи')

If $n Then ; Если найдено, то приступаем к удалению
	For $i = $n + 1 To $a[0] ; Начинаем от индекса следующего за индексом $n переписывать массив
		If $a[$i] <> $DeleteItem Then ; удаление ячеек, значение которых равно 1
			$a[$n] = $a[$i]
			$n += 1
		EndIf
	Next
	ReDim $a[$n]
	$a[0] = $n - 1
EndIf

_ArrayDisplay($a, $a[0] & ' ячеек после удаления')