Простая задача еще

[Plague]

a:=a/abs(a);
b:=b/abs(b);
c:=c/abs(c);
d:=d/abs(d);
s:=a+b+c+d;
k:=(s+4)/2;

Устроит?

[Hollander]

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

[mutabor]

a:=a/abs(a);
b:=b/abs(b);
c:=c/abs(c);
d:=d/abs(d);
s:=a+b+c+d;
k:=(s+4)/2;

Устроит?

а если среди чисел ноль будет?

такой алгоритм ноль нормально воспримет
count:=0;
n:=(a+abs(a))*2;
count:=count + n div (n-1);
n:=(b+abs(b))*2;
count:=count + n div (n-1);
n:=(c+abs(c))*2;
count:=count + n div (n-1);
n:=(d+abs(d))*2;
count:=count + n div (n-1);
writeln(count);

он же с небольшим отличием
count:=0;
n:=a+abs(a);
count:=count + round(n /(n+1));
n:=b+abs(b);
count:=count + round(n /(n+1));
n:=c+abs(c);
count:=count + round(n /(n+1));
n:=d+abs(d);
count:=count + round(n /(n+1));
writeln(count);

[_Dmitry]

#13, а если среди чисел 0.5 будет

[utyyf]

Спасибо большое!
Во всяком случае завтра обязательно спрошу, могут ли по условию числа быть равными нулю. А пока буду думать что делать с нулями (если они все таки там могут быть ).

[Plague]

а если среди чисел ноль будет?

а ноль это положительное или отрицательное число? а?

[utyyf]

Еще раз огромное спасибо!!!
Там у него была для некоторых заданий сноска (для чисел не равных нулю). Так что решено

[puporev]

Линейные алгоритмы наверное самые сложные, поскольку из всех инструментов программирования можно использовать только один - собственные мозги.
Попробуй такой алгоритм:
Переменные A,B,C,D,x1,x2.x3,x4,сумма,количеств о положительных;
1.Ввести A,B,C,D;
2.x1:=A/abs(A); аналогично для B,C,D;при делении получается либо 1, либо -1.
3.сумма:=x1+x2+x3+x4; получается варианты 4(все +),2(3+),0(2+),
-2(1+),-4(0+);
4.количество положительных:=(сумма+4)/2;
Код напишете сами. Если выберете тип переменных integer, то вместо знака деления div.

[utyyf]

Сообщение от puporev

Попробуй такой алгоритм:
... x1:=A/abs(A); аналогично для B,C,D;при делении получается либо 1, либо -1....

Спасибо, нечто аналогичное предлагалось выше.
Единственное "но" - возможное деление на ноль.
Выяснилось, что эта задача давалась для чисел отличных от нуля.

Но все-таки интересно, можно ли ее решить при нулевых значениях???

[Alex21]

Сообщение от utyyf

Но все-таки интересно, можно ли ее решить при нулевых значениях???

Можно. Ноль за не отрицательное число считать?