Сортировать нечетные элементы произвольного массива по убыванию. Для сортировки можно...

Question

Сортировать нечетные элементы произвольного массива по убыванию. Для сортировки можно использовать любой метод. Для работы с массивом использовать процедуры. Плиз помогите, не получается Pascal.

Comments

А что с остальными делать, которые четные?

Answer 1

// PascalABC.NET 3.1, сборка 1174 от 22.02.2016
begin
  var n:=ReadInteger('n=');
  var a:=ArrRandom(n,10,99);
  a.Println;
  var b:=Range(0,n-1,2).Select(i->a.ElementAt(i)).
      SortedDescending.ToArray;
  var i:=0;
  while i<=n-1 do begin a[i]:=b[i div 2]; i+=2 end;<br>  a.Println
end.

Тестовое решение:
n= 10
15 64 87 99 48 94 89 96 35 13
89 64 87 99 48 94 35 96 15 13

Comments

Спасибо, я сам сделал, прост ошибся и проверял четные :-)