Дан массив a размера N. Вывести вначале его элементы с чётными номерами в порядке убывания номеров, а затем - элементы с нечётными номерами также в порядке убывания номеров

PascalABC.NETbegin var n := ReadInteger('N:'); var a := ArrRandom(n, -99, 99); a.Println; (a[^(n.IsEven?1:2)::-2] + a[^(n.IsEven?2:1)::-2]).Print end.

Пример работы: