Сортировать нечетные элементы произвольного массива по убыванию. Для сортировки можно использовать любой метод. Для работы с массивом использовать процедуры. Плиз помогите, не получается Pascal.
Сортировать нечетные элементы произвольного массива по убыванию. Для сортировки можно использовать любой метод. Для работы с массивом использовать процедуры. Плиз помогите, не получается Pascal.
Гость
Ответ(ы) на вопрос:
Гость// 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;
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
Не нашли ответ?
Похожие вопросы