Вычисление суммы элементов от второго отрицательного и до конца - VB

Формулировка задачи:

Выручайте люди завтра сдавать, а последнюю задачу не могу даже сообразить как делать..

3. Составьте программу вычисления суммы элементов от второго отрицательного и до конца.

Не пойму до какого "конца"? Так сказано в задаче. Может кто поймет?

Решение задачи: «Вычисление суммы элементов от второго отрицательного и до конца»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
    Dim i As Integer, j As Integer
    Dim A() As Variant, n As Integer, Sum As Double
    
    A = Array(1, 2, 3, 4, 5, 6, -7, 6, 7, 8, 9, 1, -1, 2, 3, 4, 5, 7)
    
    For i = 0 To UBound(A)
               If A(i) < 0 Then n = n + 1
               If n = 2 Then
                      For j = i + 1 To UBound(A)
                        Sum = Sum + A(j)
                      Next j
                      Exit For
               End If
    Next i
    
    MsgBox "Cуммa элементов от второго отрицательного и до конца равна " & Sum
End Sub
                        

Оцени полезность:

10 голосов , оценка 3.6 из 5

Похожие ответы