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