Подсчитать количество отрицательных целых чисел a,b,c

Question

Подсчитать количество отрицательных целых чисел a,b,c

Comments

Написать прогу?

---

Pascal /

---

? 

Answer 1

Program fofgogjoj;
var
a,b,c,ot:integer;
begin
Writeln('Введите 3 числа');
Readln(a,b,c);
if a<0 then<br>ot:=ot+1;
if b<0 then<br>ot:=ot+1;
if c<0 then<br>ot:=ot+1;
Writeln('Кол-во отрицательных чисел:',ot);
end.