Вычислить в числовом массиве суммы положительных и отрицательных элементов - VB
Формулировка задачи:
вычислить в числовом массиве а(n) суммы положительных и отрицательных элементов.
помогите, буду признателен
Решение задачи: «Вычислить в числовом массиве суммы положительных и отрицательных элементов»
textual
Листинг программы
Sub Main
Tmp$=InputBox("Введите массив, разделяя числа запятой")
V=Split(Tmp$,",")
n%=Ubound(V,1)
SumPos%=0
SumNeg%=0
For i%=0 to n%
If val(V(i%)) > 0 then SumPos%=SumPos%+val(V(i%))
If val(V(i%)) < 0 then SumNeg%=SumNeg%+val(V(i%))
Next i%
MsgBox "Сумма полож=" & Cstr(SumPos%)
MsgBox "Сумма отриц=" & Cstr(SumNeg%)
End Sub