Найти количество соседствующих двух положительных чисел - VB
Формулировка задачи:
В массиве : C = { 1; 2; -3; 0; -1 ;-7; -9; 4; 5; -6; 3; 2; 9; 10; -7; -9; -5} Найти количество соседствующих двух положительных чисел и количество соседствующих двух отрицательных чисел . Желательно код для программы , заранее спасибо
Решение задачи: «Найти количество соседствующих двух положительных чисел»
textual
Листинг программы
If sgn(c(i)) * c(i+1) > 0 Then