Найти количество соседств трех положительных элементов - 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