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;
if n<0 then k:=k+1;
if p<0 then k:=k+1;
writeln('k=',k);
end.

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

Answer 2

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

Answer 3

Пожалуйста

Answer 4

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