Войти
Регистрация
Спроси ai-bota
В
Все
У
Українська література
Г
Геометрия
Д
Другие предметы
Э
Экономика
Г
География
О
ОБЖ
М
Математика
М
МХК
Х
Химия
Қ
Қазақ тiлi
Л
Литература
У
Українська мова
О
Обществознание
Ф
Физика
А
Английский язык
А
Алгебра
И
История
Б
Беларуская мова
Б
Биология
М
Музыка
П
Право
И
Информатика
П
Психология
В
Видео-ответы
Н
Немецкий язык
Ф
Французский язык
О
Окружающий мир
Р
Русский язык
Показать больше
Показать меньше
creatorX
19.08.2020 06:09 •
Информатика
Задан массив из 35 элементов, введенных с клавиатуры. упорядочить его элементы в порядке возрастания, а затем в порядке убывания. оба результата вывести на экран. ииспользовать оба варианта сортировки в 1 .
Ответ:
Valyshka11
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
0,0
(0 оценок)
Популярные вопросы: Информатика
cheburek20
19.04.2023 02:43
К естественным языкам относится:а) кириллицаб) азбука Морзев) иероглифыг) язык алгебры2Сколько бит содержится в сообщении объемом 8 байт?а) 80; б) 256; в) 48; г) 64; д) 32....
Света20177
07.09.2021 19:50
Вывести на печать все символы строки, состоящий из маленьких букв латинского алфавита, соответствующими заглавными буквами....
100Виктория100
08.11.2022 10:31
Информационное сообщение объёмом 384 бит содержит 3072 символа. Сколько символов содержит алфавит, при которого было записано это сообщение?...
kokosha11
14.09.2020 14:17
Действующее значение напряжение равно 380в определить амплитуду напряжения...
Efimenko34
14.09.2020 14:17
Реши уравнение х+1/5=11/15-4/15 у+1/15=11/15+4/15 k*5=240/2...
asem052
14.09.2020 14:17
Составьте сложные предложения из двух любых слов. слова: кашевар водопад лесоруб газопровод ледокол общежитие бурелом птицелов пулемёт путешествовать или путешествие...
arsen20171
14.09.2020 14:17
Что означают утверждения : частота колебаний равна 330 гц; период колебаний равен 1 с 500-...
daschkavolf
14.09.2020 14:17
Элементарное соцветие колосок в метелке: а)пшеницы б)ячменя в)риса г)овса д)камыша...
Hamrod
14.09.2020 14:17
Какие группы слов можно писать иногда с прописной, а иногда со строчной буквы? 1) ромашка, роза, сирень 2) имя, кличка, название 3) названия зверей, насекомых, птиц...
dalikha06
14.09.2020 14:17
Лодка км по течению реки,а затем 4км против течения ,затратив на весь путь 1час 40мин ,.собственная скорость лодки была постоянна во время всего пути и равна 8км/ч определите...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
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