дана последовательность n действительных чисел, определить число соседств

[dmitriy20104]

Дана последовательность n действительных чисел: a1,a2,...,an. Определить число соседств:
а) Двух положительных чисел.
б) Двух чисел разного знака.
в) двух чисел одного знака, причем модуль первого числа больше модуля второго числа.

[VIK_aka_TOR]

1.

index := 0;// количество
for i:=1 to n-1 do
  if (a[i] > 0) and (a[i+1] > 0) then
    inc(index);

2.

index := 0;// количество
for i:=1 to n-1 do
  if ((a[i] > 0) and (a[i+1] < 0)) or ((a[i] < 0) and (a[i+1] > 0)) then
    inc(index);

3.

index := 0;// количество
for i:=1 to n-1 do
  if ((a[i] > 0) and (a[i+1] > 0)) or ((a[i] < 0) and (a[i+1] < 0)) and (abs(a[i]) > abs(a[i+1])) then
    inc(index);