Question

Выполнить сортировку элементов, записанных на нечётных местах. В программе Pascal.. Срочно пожалуйста!! Даю 50

Answer 1

PascalABC.NET 3.4.2, сборка 1827 от 08.10.2018

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

begin

 var a := ArrRandom(ReadInteger('n='), -50, 50);

 a.Println;

 a := a[::2].Sorted.Interleave(a[1::2]).ToArray;

 a.Println

end.