Вычислить сумму элементов массива, расположенных между первым и последним положительными элементами

 Sub pr()
Dim x As Integer, A As Integer
x1 = 1
x10 = 10
n = 2
c = 1
For A = x1 To x10 Step n
Cells(c, 1) = A
z1 = Sin(3.14 / 2 + 3 * A) / 1 - Sin(3 * A - 3.14)
Cells(c, 2) = z1
z2 = ctg(((5 / 4) * 3), 4 + ((3 / 2) * A))
Cells(c, 3) = z2
c = c + 1
Next
 
End Sub

Option Explicit
 
Sub Massiv()
    Dim i As Integer
    Dim Mas(1 To 10), sum As Single
    sum = 0
    For i = LBound(Mas) + 1 To UBound(Mas) - 1
        Mas(i) = ((-7 * Rnd) + 3) 'Ðàíäîì çíà÷åíèé
        sum = sum + Mas(i)
    Next i
    MsgBox sum
End Sub

 Sub pr()
Dim A() As Integer, n As Integer
    Dim imin As Integer, i As Integer, k As Integer
    Dim iFirst As Integer, iLast As Integer, dblSum As Double
    
    Worksheets("Лист1").Range("A2:H30").Clear
    n = InputBox("Число элементов")
    ReDim A(1 To n)
    Randomize
    For i = 1 To n
        A(i) = Int((50 - (-50) - 1 + 1) * Rnd + (-50))
        Worksheets("Лист1").Cells(i + 1, 1) = A(i)
    Next
    imin = 1
    For i = 1 To n
        If A(i) < A(imin) Then imin = i
    Next
 For i = 1 To UBound(A) Step 1
        If A(i) > 0 Then
            iFirst = i
            Exit For
        End If
    Next i
 For i = UBound(A) To 1 Step -1
        If A(i) > 0 Then
            iLast = i
            Exit For
        End If
    Next i
 For i = iFirst + 1 To iLast - 1 Step 1
        dblSum = dblSum + A(i)
    Next i
End Sub

A(i) = Int(100 * Rnd - 50)