Посчитать количество отрицательных чисел среди чисел m,n,p

Question

Посчитать количество отрицательных чисел среди чисел m,n,p

Answer 1

Var m,n,p,k:integer;
begin
writeln('Введите 3 числа:');
readln(m,n,p);
k:=0;
if m<0 then k:=k+1;<br>if n<0 then k:=k+1;<br>if p<0 then k:=k+1;<br>writeln('k=',k);
end.

Пример:
Введите 3 числа:
12 -7 31 
k=1

Comments

Большое спасибо)

---

Пожалуйста

---

не поможете еще с одним заданием?)