Question

Написать программу в АВС Паскаль.
Дан массив целых чисел. Найти количество пар соседних элементов, в которых одно число четное, а другое отрицательное. Выведите также сформированный массив и все искомые пары соседних элементов.

Answer 1

//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)