подсчитать количество отрицательных чисел среди чисел а,б,с.(программирование ветвящихся алгоритмов)

1

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

2013-01-19T12:13:17+04:00

var

  a, b, c: real;

  count : byte;

begin

  read (a, b, c);

  count := 0;

  if a < 0 then inc (count);

  if b < 0 then inc (count);

  if c < 0 then inc (count);

  wrireln (count);

end.