Даны три целых числа(a b c) найти количество отрицательных чисел в исходном наборе

Question

Даны три целых числа(a b c) найти количество отрицательных чисел в исходном наборе

Answer 1

Var
a,b,c,n: integer;
 begin
 writeln ('vvedi a,b,c');
 readln(a,b,c);
 n:=0;
  if a<0 then n:=n+1;<br>    if b<0 then n:=n+1;<br>      if c<0 then n:=n+1;<br> if n<>0 then writeln ('среди трех чисел ',n,' отрицательных')
 else
  writeln ('среди трех чисел нет отрицательных')
   end.