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