Массив

[Bakasova]

Определить в числовом массиве A(n) число соседств из двух чисел разного знака.

[Serge_Bliznykov]

могу ошибаться (обязательно проверьте идею/алгоритм)...
но я бы начал с такого цикла:

kol := 0;
for i:=1 to n-1 do
  if a[i]*a[i+1]<0 then inc(kol);

[TinMan]

Идея совершенно правильная, ессно, только одно но: при использовании произведения диапазон чисел эффективно занижается в два раза по логарифмической шкале. Если числа действительные, то оно еще ничего (хотя мало ли..), а если целые, то, грубо говоря, занижаем с двух байт до одного. Причем, вылет с ошибкой - это весьма неприятная вещь.
Так что я советовал бы использовать обычную систему неравенств:

(a[i]>0) and (a[i+1]<0) or (a[i]<0) and (a[i+1]>0)

Можно, правда, нормировать числа перед умножением, a[i]/abs(a[i]), но тогда потребуется проверка на ноль..