tutotveti.ru
Предметы
Биология
Українська мова
Музыка
Французский язык
Физика
МХК
Обществознание
Психология
ОБЖ
Право
Беларуская мова
Литература
Химия
Українська література
Экономика
Немецкий язык
География
Информатика
Қазақ тiлi
Геометрия
Английский язык
Русский язык
Окружающий мир
Алгебра
История
Другие предметы
Видео-ответы
ПОИСК
Войти
Регистрация
Информатика
Задан массив из 35 элементов,
Задан массив из 35 элементов, введенных с клавиатуры. упорядочить его элементы в порядке возрастания, а затем в порядке убывания. оба результата вывести на экран. ииспользовать оба варианта сортировки в 1 .
Blazethecat218
1 09.09.2019 11:40
3
Ответы
RomanBelyy01
07.10.2020 03:12
// PascalABC.NET 3.3, сборка 1555 от 21.10.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
nastyan853958
18.03.2021 15:26
Напишите код программы, для: y=x-5, если x 0 и y=x+10, если x 0Можно подробно и ясно...
mexoc
18.03.2021 15:24
Нужно по чертёжнику сделать бабочку кто нибудь ....
AndHeAgaIN2
18.03.2021 15:24
Напишите программу, которая запрашивает у пользователя его ежемесячную зарплату, рассчитывает размер ежемесячного подоходного налога (13%) и выводит размер налоговых выплат за год:...
деш2
06.09.2019 03:30
Файл размером 540 мбайт передан через некоторое соединение за 3 минуты. определите скорость передачи файла в данном соединении. ответ укажите в мбитах в секунду...
МарсСМарса
17.12.2020 21:04
Определите тип результата функции. Integer или String1.Copy 2.Pos 3.Delete 4.Length 5.Insert...
маг122
17.12.2020 21:05
1, Чему равно значение переменной n? S:= Алгоритм; n:=lenght (S); 2. Чему равна переменная p? S:= Алгоритм ; p:pos ( и ,S); 3. Чему равна переменная p? S:= Алгоритм ; p:pos ( к...
7Rahat
17.12.2020 21:05
Роcпишите пошаговый алгоритм бинарного поиска в массиве {; 10, -51; 73; 8; 25; -17; 5, 65; 12} число 25....
sazonov30021
17.12.2020 21:05
Форма организации действий, при которой в зависимости от выполнения или невыполнения некоторого условия совершается либо одна, либо другая последовательность действий, называется…......
тупая761
17.12.2020 21:05
с ребусом! Ребус начинается со слов «Уже...»...
юля2716
17.12.2020 21:06
заранее Dat: array[1..10] of integer; Begin Dat[1] := 2; Dat[2] := 5; Dat[3] := 8; Dat[4] := 5; Dat[5] := 4; Dat[6] := 2; Dat[7] := 0; Dat[8] := 3; Dat[9] := 4; Dat[10] := 5; m...
Популярные вопросы
При равномерном подъеме в воде мраморной плиты объемом 1м3 выполняется работа...
3
Обчисліть масу естеру яку можна одержати при взаємодії 2-амінопропанової та хлоридної...
3
Сделать таблицу по биологии.вот остальные типы: 2.сосновый лес; 3.дубрава; 4.луг;...
2
Придумать предложения с причастием (действительным и страдательным) 2 предложения...
3
Скласти 12 речень на тему networking на ійській мові...
1
Расставить знаки препинания и пропущенные буквы, выделить грамматические основы,...
1
Как сделать пересказ от лица персея рассказ персей...
1
На дробно-линейной функции у=10х+52/5х+2 найдите точки с целочисленными координатами....
2
Dowользуя данные глаголы. uuпрочитайте. как вы думаете, в заголовке заклю-поль...
1
30 . решите .груз массой 3,6 кг равномерно переместили к вершине наклонной плоскости...
2
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadArrInteger('Введите 35 целых чисел:',35);
a.OrderBy(x->x).Println.Reverse.Println
end.
Пример
Введите 35 целых чисел: 57 -31 -77 38 -22 39 -49 -85 22 46 -48 -5 46 -50 67 86 31 -90 -29 37 60 -89 31 -19 -31 -46 81 -56 -34 -33 -33 -59 -88 -25 83
-90 -89 -88 -85 -77 -59 -56 -50 -49 -48 -46 -34 -33 -33 -31 -31 -29 -25 -22 -19 -5 22 31 31 37 38 39 46 46 57 60 67 81 83 86
86 83 81 67 60 57 46 46 39 38 37 31 31 22 -5 -19 -22 -25 -29 -31 -31 -33 -33 -34 -46 -48 -49 -50 -56 -59 -77 -85 -88 -89 -90