<em>// PascalABC.NET 3.2, сборка 1353 от 27.11.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var k:=ReadInteger('k=');
var a:=ReadArrInteger('>',k);
var sp:=a.Where(x->x>0).Sum;
var po:=a.Where(x->x<0).Aggregate(BigInteger(1),(p,q)->p*q);
var b:=a.Select(x->x>0?po:(x<0?sp:0)).ToArray;
b.Println
end.
<u>Пример</u>
k= 10
> 9 20 -11 5 0 16 8 11 2 -17
187 187 71 187 0 187 187 187 187 71
1)
(1 V (A V B)) V ((A V C) & 1) ⇒ 1)(1 V A V B) V ((A V C) & 1) ⇒
1 V ((A V C) & 1) ⇒ 1 V (A V C) ⇒ 1
Ответ: 1111
2)
(A & B & ¬B) V (A & ¬A) V (B & C & ¬C) ⇒ 0 V 0 V 0 ⇒ 0
Ответ: 0000
Выдели изображение и нажми ctrl+c, а затем ctrl+v
== проверяет одинаково ли значение операндов, если одинаковы – то условие является истинной (true);
!= проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
<> проверяет одинаково ли значение операндов, если НЕ одинаковы – то условие является истинной (true);
> проверяет значение левого оператора, если он больше, чем правый – то условие является истинной;
< проверяет значение левого оператора, если он меньше, чем правый – то условие является истинной;
>= проверяет значение левого оператора, если он больше или равен правому – то условие является истинной;
<= проверяет значение левого оператора, если он меньше или равен правому – то условие является истинной;
