Вычислить в числовом массиве суммы положительных и отрицательных элементов - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

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

13   голосов , оценка 3.846 из 5
Похожие ответы