<span>Х = А*(В + !С) + А*!В
= A*B + A*!C + A*!B = A*(B + !B) + A*!C = A*1 + A*!C = A*(1 + !C) = A</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(ReadInteger('n='),-99,99); a.Println;
var b:=a.Reverse.ToArray; b.Println
end.
<u>Пример</u>
n= 13
7 -43 4 21 -25 62 -33 72 88 -26 -38 42 -64
-64 42 -38 -26 88 72 -33 62 -25 21 4 -43 7