Программа должна быть без if. , Вроде на паскале. И заодно посоветуйте, пожалуйста, какие-то видео или просто ссылки, чтобы разобраться с основами этого программирования. Заранее спасибо
var P, O, N : Integer;
begin
P := 0; O := 0;
repeat
Write('Введите число: '); ReadLn(N);
case Sign(N) of
-1 : Inc(O);
+1 : Inc(P);
end;
until N = 0;
WriteLn('Положительных = ', P);
WriteLn('Отрицательных = ', O);
end.
case - разновидность if. Можно обойтись без if и case.
Пусть есть последовательность длины L, в которой нет нулевых элементов.
Точнее в ней P - положительных и N - отрицательных.
Просуммируем Sign(элемент) , получим некое число S.
По определению:
S = 1*P+(-1)*N
L = P+N
То есть
P=(L+S)/2
N=(L-S)/2
То есть, всё что надо делать, это по ходу ввода считать количество элементов и накапливать сумму Sign'ов, а потом вывести полусумму и полуразность.
ЗЫ
Забавный эффект: сумма и разность L и S ВСЕГДА будут делиться на 2.
Так как для любых N и P их сумма/разность либо обе чётные, либо обе нечётные.
"Вроде на паскале"?)))
⇢