Составьте процедуру, изменяющую исходный одномерный массив путем деления его положительных элементов на свои индексы

Sub CommandButton1_Click()
Dim i As Integer, j As Integer, R As Double, R1 As Integer, R2 As Integer
ReDim A(1 To 10) As Double
ReDim B(1 To 10) As Double
For i = 1 To 10
For j = 1 To 2
A(i) = Int(-50 + 100 * Rnd())
Cells(i, 1) = A(i)
B(i) = Int(-50 + 100 * Rnd())
Cells(i, 2) = B(i)
Call procedura(A(), B(), M, R)
Next j
Next i
End Sub
 
Sub procedura(ByRef A() As Double, ByRef B() As Double, ByVal M As Double, ByRef R As Double)
Dim R1 As Integer, R2 As Integer
R = 0
For i = 1 To 10
If A(i) > 0 Then
M = A(i) / i
R = R + 1
Else
M = A(i)
End If
Cells(i, 6) = M
R1 = R
If B(i) > 0 Then
M = B(i) / i
R = R + 1
Else
M = B(i)
End If
R2 = R
Cells(i, 7) = M
Next i
For i = 1 To 10
If R1 < R2 Then
Cells(i, 4) = Cells(i, 7)
ElseIf R1 > R2 Then
Cells(i, 4) = Cells(i, 6)
End If
Cells(i, 6) = Cells(i, 8)
Cells(i, 7) = Cells(i, 8)
Next i
End Sub

Sub CommandButton1_Click()
Dim i As Integer, j As Integer, R As Double
Dim R1 As Integer, R2 As Integer
Dim A(1 To 10) As Double
Dim B(1 To 10) As Double
Dim C() As Double
Cells.ClearContents
For i = 1 To 10
A(i) = Int(-50 + 100 * Rnd())
Cells(i, 1) = A(i)
B(i) = Int(-50 + 100 * Rnd())
Cells(i, 2) = B(i)
Next i
 procedura A, R
 R1 = R
 procedura B, R
 R2 = R
C = IIf(R1 > R2, A, B)
j = IIf(R1 > R2, 1, 2)
For i = 1 To 10
Cells(i, 3) = C(i)
Next i
MsgBox "В массиве №1 сделано " & R1 & " перестановок" & vbCrLf _
& "В массиве №2 сделано " & R2 & " перестановок" & vbCrLf _
& "На лист выведен массив № " & j, 64, "Итог работы"
 
End Sub
 
Sub procedura(ByRef M, ByRef R As Double)
Dim i as Byte
R = 0
For i = 1 To 10
If M(i) > 0 Then M(i) = M(i) / i: R = R + 1
Next i
End Sub