Ответы и объяснения

Лучший Ответ!
2012-11-17T23:50:35+04:00

program prog;

var a,b,c,i:integer;

begin

Writeln('Введите 3 числа');

Readln(a,b,c);

if a<0 then i:=i+1;

if b<0 then i:=i+1;

if c<0 then i:=i+1;

writeln('Количество отрицательных чисел: ',i);

end.