Найти количество положительных (отрицательных) чисел среди четырех чисел А,В,С, D

Question

Найти количество положительных (отрицательных) чисел среди четырех чисел А,В,С, D

Comments

Я могу на java написать

---

На паскале нужно)

Answer 1

Var a,b,c,d:integer;
begin
readln(a,b,c,d);
if a>0 then p:=p+1;
if a<0 then o:=o+1;<br>if b>0 then p:=p+1;
if b<0 then o:=o+1;<br>if c>0 then p:=p+1;
if c<0 then o:=o+1;<br>if d>0 then p:=p+1;
if d<0 then o:=o+1;<br>writeln('Положительных чисел:',p,', отрицательных:',o)
end.