Найти количество соседств трех положительных элементов - VB

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

в массиве Z = {1; 5; -3; 4; 8; 7; 2; -1; 0; -2; 4; 3; 2; 7; -3} найти количество соседств трех положительных элементов Помогите пожалуйста, буду очень благодарен))

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

textual
                            Листинг программы 
                        
kolvo=0
for i=1 to 13 step 1
If (Arr(i)>0) and (Arr(i+1)>0) and (Arr(i+2)>0) then kolvo=kolvo+1
next i
print kolvo

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

13 голосов , оценка 3.923 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы