Задание звучит : Дана последовательность целых чисел, за которой следует ноль. Определить, число соседств чисел с одинаковыми знаками. Чтонужно изменить в программе, чтобы выполнялось условие задачи.
Program exapmle2; var x,y,k:integer; begin writeln('Эта программа определяет, число соседств чисел с одинаковыми знаками'); write('Введите число:'); read(x); y:=x; write('Введите число:'); //добавить эти 2 строки read(x); k:=0; while x<>0 do // поменять у на х begin //if x*y<0 then inc(k); убрать эту строку if x*y>0 then inc(k); y:=x; read(x); // изменить у на х end; writeln(' Число соседств ',k); writeln('нажмите Enter для завершения работы программы'); readln; end.
