найти количество пар цифр

[[ Senya Black ]]

Среди N введенных целых чисел найти количество пар цифр, стоящих рядом и имеют разные знаки.

[s-andriano]

Цифра не имеет знака, Вы что-то напутали с условием.

[[ Senya Black ]]

хм... не знаю у меня такая задачка)

[s-andriano]

Ну, когда будете знать, напишете уточненное условие.

[ACE Valery]

Цифра не имеет знака, Вы что-то напутали с условием.

Как это не имеет? А положительные и отрицательные числа?

[Stilet]

А положительные и отрицательные числа?

А это уже число а не цифра
Цифра внутри числа знака не имеет, как справедливо Адриано заметил.
Я думаю у автора есть набор чисел, среди которого ему нужно найти нужные числа
Выглядеть может решение так:

MODULE чисда;
 IMPORT StdLog,ObxRandom,Math;
 VAR a:ARRAY(10) OF INTEGER;

 PROCEDURE do*;
 VAR imax, i:INTEGER; 
 BEGIN  StdLog.Clear; imax:=0;

  FOR i:=0 TO LEN(a)-1 DO
   a[i]:=SHORT(ENTIER(50-ObxRandom.Uniform()*100));
   StdLog.Int(a[i]);
   StdLog.Ln;	
  END;

  FOR i:=1 TO LEN(a)-1 DO
   IF (a[i]*a[i-1])<0 THEN INC(imax); END;
  END;
   StdLog.String("Кол-во пар:");  StdLog.Int(k);   StdLog.Ln;	

END do;

END чисда.

[[ Senya Black ]]

спасибо))))))

[Serge_Bliznykov]

спасибо))))))

я не уверен, что Вы не поторопились с благодарностью...

[Stilet]

1) Все равно приятно слышать за труды "спасибо"
2) А вдруг? Кто знает чем их там преподы кормят

[Serge_Bliznykov]

Stilet, всё может быть, конечно, но боюсь, автора темы ждёт сюрприз!