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

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.

Остались вопросы?