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

1

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

  • nemp
  • хорошист
2013-03-05T20:17:33+04:00

Program p2;
Var a,b,c:integer;
kolichestvo:byte;
summa:integer;
Begin
kolichestvo:=0;
summa:=0;
Readln(a);
If a<0 then
kolichestvo:=kolichestvo+1 else
summa:=summa+a;
Readln(b);
If b<0 then
kolichestvo:=kolichestvo+1 else
summa:=summa+b;
Readln(c);
If c<0 then
kolichestvo:=kolichestvo+1 else
summa:=summa+c;
Writeln('Количество отрицательных = ',kolichestvo);
Writeln('Сумма положительных = ',summa);
End.