Посчитать количество положительных элементов массива, предшествующих первому отрицательному элементу - VB

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

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

Задача такова.... "Посчитать количество положительных элементов одномерного массива,предшествующий первому отрицательному элементу." Блок схему "как бы" сделал, но вот программу....буду признателен если напишите программу по задаче. P.S. Если кому надо блок схему, скину
Не нашел, даже примерного...(

Решение задачи: «Посчитать количество положительных элементов массива, предшествующих первому отрицательному элементу»

textual
Листинг программы
Function CountPos(X() as integer, i as integer) As integer
  If (i>= ubound(X,1)) then
     CountPos=0
  ElseIf X(i) < 0 then
      CountPos=0
  Elseif  X(i) >0 then
      CountPos=1+CountPos(X,i+1)
  Else
      CountPos=CountPos(X,i+1)
  End if
End Function

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


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

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

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