Вводится последовательность не нулевых чисел . Ноль конец последовательности . Определить...

Question

Вводится последовательность не нулевых чисел . Ноль конец последовательности . Определить сколько раз последовательность меняет знак

Answer 1

Program m;
 Var old, new: real;
 k,n,i: integer;
 Begin
 repeat
 write('vvod posl n= ');
 readln(n)
 until n>0;
 Write('vvod x= ');
 Readln(old);
 k:=0;
 for i:=2 to n do
 begin
 Write('vvod x= ');
 Readln(new);
 If new*old<0 then k:=k+1;<br> Old:=new;
 end;
 If k>0 then
 Writeln('posledovatelnost menyaet znak ', k, ' raz')
 Else Writeln('posledovatelnost ne menyaet znak');
 End.