Question

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

Answer 1

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.