#include <Array.au3>
Dim $aM1[22]
Dim $aM2[22]
For $i = 0 To UBound($aM1) -1
For $ii = 0 To UBound($aM2) - 1
$aM2[$ii] = Random(1, 1000, 1)
Next
$aM1[$i] = $aM2
Next
_ArrayDeleteEx($aM1, 12, 2)
Func _ArrayDeleteEx(ByRef $a_Array, $i_1D, $i_2D)
For $i = 0 To UBound($a_Array) -1
$a_Temp = $a_Array[$i]
If $i = $i_1D Then
For $ii = 0 To UBound($a_Temp) - 1
If $ii = $i_2D Then
_ArrayDisplayEx($a_Array, "До $aM1[" &$i_1D& "][" &$i_2D& "]", $i_1D, $i_2D)
_ArrayDelete($a_Temp, $ii)
$a_Array[$i] = $a_Temp
_ArrayDisplayEx($a_Array, "После $aM1[" &$i_1D& "][" &$i_2D& "]", $i_1D, $i_2D)
EndIf
Next
EndIf
Next
EndFunc ;==>_ArrayDeleteEx
Func _ArrayDisplayEx($a_Array, $s_Title = "", $i_1D = 0, $i_2D = 0)
For $i = 0 To UBound($a_Array) -1
$a_Temp = $a_Array[$i]
If $i = $i_1D Then
For $ii = 0 To UBound($a_Temp) - 1
If $ii = $i_2D Then
_ArrayDisplay($a_Temp, $s_Title)
EndIf
Next
EndIf
Next
EndFunc ;==>_ArrayDisplayEx