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