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

аишамамедова аишамамедова    2   09.09.2019 13:40    0

Ответы
mozhena2000 mozhena2000  07.10.2020 03:16

//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);

  if b<0 then inc(n);

  if c<0 then inc(n);

  if d<0 then inc(n);

  if e<0 then inc(n);

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

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика