1) Задан массив из 35 элементов,введенных с клавиатуры. Упорядочить с его
1) Задан массив из 35 элементов,введенных с клавиатуры. Упорядочить с его элементы в порядке возрастания, а потом в порядке убывания. Оба результата вывести на экран . Используйте оба варианта сортировки в 1 задачке.
2)Дан массив из 10 элементов .1-ые 4 упорядочить по возрастанию,заключительные 4 по убыванию
1 ответ
Павел Чурсинов
// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println;
Sort(a); a.Println;
Sort(a,(x,y)-gt;xgt;y); a.Println
end.
Пример
-68 20 -21 -52 -31 -80 -8 84 -58 -64 88 -90 12 21 -44 -48 2 -10 41 -45 7 9 -43 -19 85 70 -95 -36 -7 -87 69 -48 -57 -60 19
-95 -90 -87 -80 -68 -64 -60 -58 -57 -52 -48 -48 -45 -44 -43 -36 -31 -21 -19 -10 -8 -7 2 7 9 12 19 20 21 41 69 70 84 85 88
88 85 84 70 69 41 21 20 19 12 9 7 2 -7 -8 -10 -19 -21 -31 -36 -43 -44 -45 -48 -48 -52 -57 -58 -60 -64 -68 -80 -87 -90 -95
begin
var a:=ArrRandom(10,-99,99); a.Println;
a:=(a[:4].OrderBy(x-gt;x).ToArray)+(a[4:6])+(a[6:]
.OrderByDescending(x-gt;x).ToArray);
a.Println;
end.
Пример
-50 -45 30 -67 -65 -1 3 60 69 -91
-67 -50 -45 30 -65 -1 69 60 3 -91
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(35,-99,99); a.Println;
Sort(a); a.Println;
Sort(a,(x,y)-gt;xgt;y); a.Println
end.
Пример
-68 20 -21 -52 -31 -80 -8 84 -58 -64 88 -90 12 21 -44 -48 2 -10 41 -45 7 9 -43 -19 85 70 -95 -36 -7 -87 69 -48 -57 -60 19
-95 -90 -87 -80 -68 -64 -60 -58 -57 -52 -48 -48 -45 -44 -43 -36 -31 -21 -19 -10 -8 -7 2 7 9 12 19 20 21 41 69 70 84 85 88
88 85 84 70 69 41 21 20 19 12 9 7 2 -7 -8 -10 -19 -21 -31 -36 -43 -44 -45 -48 -48 -52 -57 -58 -60 -64 -68 -80 -87 -90 -95
begin
var a:=ArrRandom(10,-99,99); a.Println;
a:=(a[:4].OrderBy(x-gt;x).ToArray)+(a[4:6])+(a[6:]
.OrderByDescending(x-gt;x).ToArray);
a.Println;
end.
Пример
-50 -45 30 -67 -65 -1 3 60 69 -91
-67 -50 -45 30 -65 -1 69 60 3 -91
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Арабы входят в __________________ групп народов. Местом расселения арабов с незапамятных
Разные вопросы.
Грузовой автомобиль марки краз за одну поездку может доставить 7.500 кирпичей
Математика.
Определить предложения какие они по цели высказывания и по интонации
Русский язык.
"Три толстяка" Называли эту площадь Площадью Звезды последующей причине.
Русский язык.
на одной грядке коротышки посадили 3 ряда морковок по 8 штук
Разные вопросы.
эссе на тему какое образование дается в каждой семье
Қазақ тiлi.
Put the verb in brackets into the Present Indefinite.
1The Volga ,
Английский язык.
Облако тегов