Question

паскаль. написать программу СРЕДИ ЧИСЕЛ ЕСТЬ ОТРИЦАТЕЛЬНЫЕ?используя одну переменную (х) и цикл if-else (для х должно быть 4 числа использовать for нельзя)
​

Answer 1

var

 x,i:integer;

 flag:boolean;

begin

 i:=0;

 repeat

   readln(x);

   if x<0 then

     flag:=true;

   inc(i);

 until i=4;

 writeln(flag);

end.