Сортировкой массива Дан массив x, состоящий из латинских букв. Исключить из него...

Question

Сортировкой массива Дан массив x, состоящий из латинских букв. Исключить из него элементы, стоящие на чётных местах, затем элементы стоящие на нечётных местах упорядочить по неубыванию.

Answer 1

PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018

Внимание! Если программа не работает, обновите версию!

begin

 var x := SeqRandom(ReadInteger('n='), 0, 51)

     .Select(t -> t < 26 ? Chr(t + Ord('A')) : Chr(t - 26 + Ord('a')))

     .ToArray;

 x.Println;

 x := x.Where((v, i)-> i.IsEven).Order.ToArray;

 x.Println

end.

Пример

n= 50

rLGIlkFnyaqvPYweWjJMEtZHUTLPreSpqKAvvArnCAULROpFLo

ACEFGJLLPRSUUWZlpqqrrrvwy