Даны числа a,b,c,d,e. Подсчитать количество отрицательных среди данных чисел

Question

Даны числа a,b,c,d,e. Подсчитать количество отрицательных среди данных чисел

Comments

Какой язык? Pascal?

Answer 1

//PascalABC.Net v3.1

var a,b,c,d,e,n:integer;

begin

  readln(a,b,c,d,e);

  if a<0 then inc(n);</p>

  if b<0 then inc(n);</p>

  if c<0 then inc(n);</p>

  if d<0 then inc(n);</p>

  if e<0 then inc(n);</p>

  writeln('отрицательных: ',n);

end.