Даны четыре вещественных числа. Определить ,сколько из них отрицательных.

Question

Даны четыре вещественных числа. Определить ,сколько из них отрицательных.

Answer 1

Var
   a,b,c,d:real;
   k:byte;
Begin
k:=0;
Write('Введите четыре вещественных числа: ');
ReadLn(a,b,c,d);
if a<0 then k:=k+1;<br>if b<0 then k:=k+1;<br>if c<0 then k:=k+1;<br>if d<0 then k:=k+1;<br>WriteLn('Количество отрицательных: ',k);
End.