Вычислить в числовом массиве a(n) суммы положительных и отрицательных элементов

@Машенька20 · Регистрация: 13.11.2012

Author24 — интернет-сервис помощи студентам

вычислить в числовом массиве а(n) суммы положительных и отрицательных элементов

Комментарий модератора

Машенька20, читайте правила

п 4.14 Если на ваш вопрос долгое время нет ответа, уточните его, приведите дополнительные сведения, которые могут помочь участникам форума решить вашу проблему.
п 4.15 Чтобы "поднять" тему в разделе и поиске по форуму, используйте осмысленные сообщения, например "Тема/проблема/задача актуальна". Если вы чего-то достигли в решении проблемы на этот момент, сообщите об этом.

Не по теме:

Просьбы о решении в личке не рассматриваю!

@Машенька20 · 09.12.2012, 12:46 **[ТС]**

Visual Basic

Function SumPos(A() As double) As Double
            For i%=1 to Ubound(A,1)
                 If A(i%) > 0 then SumPos=SumPos+A(i%)
            Next i%
End Function
Function SumNeg(A() As double) As Double
            For i%=1 to Ubound(A,1)
                 If A(i%) < 0 then SumNeg=SumNeg+A(i%)
            Next i%
End Function

как будет выглядить полностью код?

Dragokas · 09.12.2012, 18:59

Поместите на форму кнопку.

Visual Basic

Option Base 1
 
Sub command1_click()
    Tmp$ = InputBox("Введите массив, разделяя числа пробелом")
    V = Split(Tmp$)
    MsgBox "Сумма полож=" & SumPos(V)
    MsgBox "Сумма отриц=" & SumNeg(V)
End Sub
 
Function SumPos(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) > 0 Then SumPos = SumPos + A(i%)
            Next i%
End Function
 
Function SumNeg(A) As Double
            For i% = 1 To UBound(A, 1)
                 If A(i%) < 0 Then SumNeg = SumNeg + A(i%)
            Next i%
End Function

	09.12.2012, 18:59

Опции темы