Опубликовано 12.06.2017 по предмету Информатика от Гость >> <<

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

Ответ оставил Гость

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.