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