Помощь - Поиск - Пользователи - Календарь
Полная версия: Изменение знака в последовательности чисел...
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
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 чисел и получаешь ответ...
TALbert666
Thanks! А можно сделать тоже самое только для любого количества чисел, т.е не для 7 а хоть солько угодна?
volvo
TALbert666
Смотри первый пост - я изменил программу. Меняй N на сколько тебе нужно и запускай
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.