Составить программку сортировки чётных элементов массива.
Составить программку сортировки чётных частей массива.
Задать свой вопрос1 ответ
Алиса
//PascalABC.NET
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);a.Println;
var b := a.IndexesOf(t -gt; t.IsEven).ToArray;
var b1 := a.Where(t -gt; t.IsEven).Sorted.ToArray;
var b2 := ArrFill(a.Length, 1);
if b.Length lt; 0 then begin a.Println; exit; end;
for var i := 0 to b.Length - 1 do b2[b[i]] := b1[i];
for var i := 0 to a.Length - 1 do if b2[i].IsOdd then b2[i] := a[i];
b2.Println;
end.
Пример:
n= 10
30 9 27 25 -34 25 -5 5 46 -46
-46 9 27 25 -34 25 -5 5 30 46
//Версия 3.3, сборка 1634 (14.02.2018)
begin
var a := ArrRandom(ReadInteger('n='), -50, 50);a.Println;
var b := a.IndexesOf(t -gt; t.IsEven).ToArray;
var b1 := a.Where(t -gt; t.IsEven).Sorted.ToArray;
var b2 := ArrFill(a.Length, 1);
if b.Length lt; 0 then begin a.Println; exit; end;
for var i := 0 to b.Length - 1 do b2[b[i]] := b1[i];
for var i := 0 to a.Length - 1 do if b2[i].IsOdd then b2[i] := a[i];
b2.Println;
end.
Пример:
n= 10
30 9 27 25 -34 25 -5 5 46 -46
-46 9 27 25 -34 25 -5 5 30 46
Вячеслав Вилькен
Полагаюсь сообразил условие..
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов