//PascalABC.NET 3.1 сборка 1200
begin
var A := ArrRandom(Random(10, 20), -99, 99);
A.Println;
A.Pairwise().Where(x -> ((x[0] mod 2 = 0) and (x[1] < 0)) or ((x[1] mod 2 = 0) and (x[0] < 0))).Println;
end.
Вывод
51 28 34 -33 28 -99 17 -15 78 -17 -72 -84 -2 -99 99 -18 36
(34,-33) (-33,28) (28,-99) (-15,78) (78,-17) (-17,-72) (-72,-84) (-84,-2) (-2,-99) (-18,36)
Принтер т.к перед печатью мы задаём ему алгаритм
Z:=10;
if x>=1
then if y>0 then z:=1 else z:=z-2
else z:=z-3;
а) x=1; y=1; z=10
x>=0 ⇒ 1>=0 ⇒ true; y>0 ⇒ 1>0 ⇒ true ⇒ z=1
б) x=1; y=-1; z=10
x>=0 ⇒ 1>=0 ⇒ true; y>0 ⇒ -1>0 ⇒ false ⇒ z=z-2=10-2=8
в) x=-1; y=1; z=10x>=0 ⇒ -1>=0 ⇒ false; ⇒ z=z-3=10-3=7