Отрицательные элементы матрицы, расположенные ниже побочной диагонали, заменить нулями - VBA - Ответ 1272572

n = InputBox("Введите к-во элементов")
ReDim a(1 To n) As Integer
Dim min, nom As Integer
Cells.Clear
For i = 1 To n
a(i) = (Rnd() * 6) - 1
Cells(1, i) = a(i)
Next i
For i = 1 To n
If a(i) < 0 Then
nom = i
Exit For
End If
Next i
kol = 0
For i = 1 To nom
If a(i) > 0 Then kol = kol + 1
Next i
MsgBox "К-во положительных до первого отрицательного=" & kol

n = InputBox("Введите натуральное число")
Sum = 0
For i = 1 To n
If (n Mod i) = 0 Then Sum = Sum + 1
Next i
MsgBox "К-во делителей=" & Sum

Dim mas(0 To 4, 0 To 4) As Single
Cells.Clear
For i = 0 To UBound(mas, 1)
For j = 0 To UBound(mas, 2)
mas(i, j) = Rnd() * 10 - 3
Cells(i + 1, j + 1) = mas(i, j)
Next j
Next i
For i = 0 To UBound(mas, 1)
For j = 0 To UBound(mas, 2)
If j >= UBound(mas, 1) + 1 - i Then mas(i, j) = 0
Next j
Next i
For i = 0 To UBound(mas, 1)
For j = 0 To UBound(mas, 2)
Cells(UBound(mas, 1) + i + 3, j + 1) = mas(i, j)
Next j
Next i