Посчитать количество положительных элементов массива, предшествующих первому отрицательному элементу - 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