Вычислить в числовом массиве суммы положительных и отрицательных элементов - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д
