• Предмет: Информатика
  • Автор: sunsungsung
  • Вопрос задан 2 года назад

Задание по информатике!! помогите пж!! надо программу сделать срочно!!


Дан массив размера N. Выполнить сортировку по возрастанию только четных элементов массива (нечетные элементы остаются на своих местах)

Ответы

Ответ дал: BobbyFresnel
0

// PascalABC.NET 3.6.3

begin

 var n := ReadInteger;

 var a := ArrRandom(n, -99, 99);

 a.Println;

 var ai := a.Indices((v, i) -> v.IsEven).ToArray;

 var vi := ai.Select(p -> a[p]).Order.ToArray;

 for var i := 0 to ai.High do

   a[ai[i]] := vi[i];

 a.Print

end.

Похожие вопросы