Изменение знака в последовательности чисел... Опции

[TALbert666]

Как определить сколько раз меняется знак в последовательности чисел введённых с клавиатуры?
Например в последовательности 3, -5, 8, 6, -4, -2,9 знак меняется 4 раза...

[volvo]

TALbert666
Делаешь так:

Код

const
 n = 7;

var
 i, count: integer;
 prev, now: boolean;
 x: integer;
begin
 prev := false;
 count := 0;
 for i := 1 to n do
   begin
     readln(x);
     now := (x < 0);
     inc(count, byte(prev <> now));
     prev := now
   end;
 writeln('changes = ', count)
end.

Вводишь свои 7 чисел и получаешь ответ...

Сообщение отредактировано: volvo - 6.12.2004 19:19

[TALbert666]

Thanks! А можно сделать тоже самое только для любого количества чисел, т.е не для 7 а хоть солько угодна?

[volvo]

TALbert666
Смотри первый пост - я изменил программу. Меняй N на сколько тебе нужно и запускай