Даны действительные числа x, y, z. Сколько среди них отрицательных.

Question

Даны действительные числа x, y, z. Сколько среди них отрицательных.

Comments

Тоесть даны 3 числа?

Answer 1

Program testabc;
var x,y,z:real;
i:integer;
begin
i:=0;
writeln('Введите 3 числа: ');
readln(x,y,z);
if x<0 then i:=i+1; <br> if y<0 then i:=i+1; <br> if z<0 then i:=i+1; <br> Writeln(i,' отрицательных');
end.