Question

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

Answer 1

PascalABC.NET

Ответ:

• begin
• 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.

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