даны целые числа а,в,с.Написать программу ,подчитывающую количество положительных и количество отрицательных чисел среди данных

1

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

  • Участник Знаний
2013-12-01T12:06:25+00:00
Program Z_n;
var a,b,c,d,d1:integer;
Begin
Readln(a,b,c);
If a>=0 then d:=d+1
else d1:=d1+1;
If b>=0 then d:=d+1
else d1:=d1+1;
If c>=0 then d:=d+1
else d1:=d1+1;
Writeln('Положительный чисел:',d);
Writeln('Отрицательных чисел:', d1);
end.