Найти сумму элементов массива, меньших и равных заданному n - VB

Узнай цену своей работы

Формулировка задачи:

в visual basic найти сумму элементов массива, наименьших и равных заданному "н"

Решение задачи: «Найти сумму элементов массива, меньших и равных заданному n»

textual
Листинг программы
Function Sum_less(A() as integer, h as integer) As integer
  for i%=Lbound(A,1) to Ubound(A,1)
      if A(i%)<h then Sum_less=Sum_less+A(i%)
  next i%
End function
Sub Start
Dim X(1 to 5) As integer
     X(1)=-5
     X(2)=7
     X(3)=2
     X(4)=4
     X(5)=1
     S%=sum_less(X,4)
     MsgBox Cstr(S%)
End Sub

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

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