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

Question

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

Экономика

Гость

Ответ(ы) на вопрос:

Accepted Answer

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; if b>0 then p:=p+1; if b<0 then o:=o+1; if c>0 then p:=p+1; if c<0 then o:=o+1; if d>0 then p:=p+1; if d<0 then o:=o+1; writeln('Положительных чисел:',p,', отрицательных:',o) end.