Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Показать больше
Показать меньше
kizaru28
10.06.2021 05:52 •
Информатика
Задан массив из 35 элементов, введенных с клавиатуры. упорядочить его элементы в порядке возрастания, а затем в порядке убывания. оба результата вывести на экран. ииспользовать оба варианта сортировки в 1 .
Показать ответ
Ответ:
leonik9797
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 оценок)
Популярные вопросы: Информатика
Yoshimura
01.03.2022 08:53
Активация продукта не удалась! При выполнении запроса произошла ошибка, попробуйте ещё раз. Код ошибки: E150-2007 решить проблему в Epic Games Launcher...
hohotuchka
17.07.2022 15:36
Вms word набери слово жёсткий диск и сохрани его с названием inform, указав тип файла word 97 - 2003 document (*.doc) запишите имя данного файла...
help1010100101020349
19.04.2021 09:51
С++ даны координаты точки (х,у). определить по координатам, какой четверти принадлежит точка. написать первый- используя тернарный оператор второй-используя оператор if...
GagarinPSK
14.02.2022 05:12
А)определите правильный порядок создания фигуры б)опишите инструменты и действия, которые выполнялись в создании модели...
lehareva
14.05.2020 09:31
Все свои . важно,надо получить хотя бы 4 .заранее ❤ 1. сколько ячеек эт включают следующие диапазоны? а5: с40 — ячеек д2: д10 — . 2.запишите в традиционной форме формулы,записанные...
deniska3955v
10.02.2021 09:49
ОТВЕТИТЬ НА ВО дополнительно грамматику...
GGNOOB777
10.02.2021 09:49
Задание 1. Напишите формулировки к терминам:Спорофит…………………………………………………………………...Гаметофит……………………………………………………………………..Заросток или предросток……………………………………………………Гаплоидность…………………………………………………………………Диплоидность………………………………………………………………..Гамета...
Koko1324
20.05.2023 01:24
Дано точки А (1;1) В ( 1;2) С (-2;2) D(-3;1). Знайдіть кут між векторами ....
zhahbota
20.05.2023 01:24
Что означает стрелка в низ в информатике?...
catcher1
20.05.2023 01:24
Прочитайте текст и скажите, что такое компьютер и каковы его основные функции. Text 2. WHAT IS A COMPUTER? A computer is a machine with an intricate network of electronic...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
Спроси ai-бота
// Внимание! Если программа не работает, обновите версию!
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