Question

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

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;
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.

Answer 2

Для того чтобы найти количество положительных и отрицательных чисел среди четырех чисел A, B, C, D, нужно сравнить каждое число с нулем и посчитать количество чисел, которые больше (меньше) нуля.

Например, для подсчета количества положительных чисел можно использовать следующий алгоритм:

1. Установить счетчик положительных чисел в 0.
2. Для каждого из четырех чисел A, B, C, D выполнить следующие шаги:
   • Если число больше 0, увеличить счетчик положительных чисел на 1.
3. Вернуть значение счетчика положительных чисел.

Аналогично, для подсчета количества отрицательных чисел можно использовать алгоритм:

1. Установить счетчик отрицательных чисел в 0.
2. Для каждого из четырех чисел A, B, C, D выполнить следующие шаги:
   • Если число меньше 0, увеличить счетчик отрицательных чисел на 1.
3. Вернуть значение счетчика отрицательных чисел.

Например, если имеем числа A = 2, B = -1, C = 0, D = 3, то количество положительных чисел равно 3 (так как три числа - A, B и D - больше 0), а количество отрицательных чисел равно 1 (так как только число B меньше 0).