Помогите по информатике!

Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

Question

Информатика

Селина

15 декабря, 16:53

Помогите по информатике!

Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

+1

Ответы (1)

Знаете ответ на вопрос?

Валентион · Answer 1

Var n, i, n1: integer;

begin

read (n) ;

i : = 0;

n1 : = 0;

while n 0 do

begin

if n1 * n < 0 then

i : = i + 1;

n1 : = n;

read (n) ;

end;

writeln (i) ;

end.

Помогите по информатике!Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.

Помогите по информатике!

Дана последовательность целых чисел, 0 - конец последовательности. Определите, сколько раз в последовательности меняется знак.