Как определить сколько раз меняется знак в последовательности чисел введённых с клавиатуры? Например в последовательности 3, -5, 8, 6, -4, -2,9 знак меняется 4 раза...
volvo
6.12.2004 22:56
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
6.12.2004 23:17
Thanks! А можно сделать тоже самое только для любого количества чисел, т.е не для 7 а хоть солько угодна?
volvo
6.12.2004 23:21
TALbert666 Смотри первый пост - я изменил программу. Меняй N на сколько тебе нужно и запускай
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.