1) <span>i=1
2) по стратегии 4 вопроса </span><span>i=log2*12=4 бита
3) не знаю</span>
begin
var n := ReadInteger;
var a := ReadArrInteger(n);
var (kp, kn) := (0, 0);
foreach var c in a do
if c > 0 then Inc(kp)
else if c < 0 then Inc(kn);
if kp > kn then a.Sum.Println;
end.
===== PascalABC.NET =====