Войти
Регистрация
Спроси ai-bota
В
Все
М
Математика
О
ОБЖ
У
Українська мова
Х
Химия
Д
Другие предметы
Н
Немецкий язык
Б
Беларуская мова
М
Музыка
Э
Экономика
Ф
Физика
Б
Биология
О
Окружающий мир
У
Українська література
Р
Русский язык
Ф
Французский язык
П
Психология
О
Обществознание
А
Алгебра
М
МХК
Г
География
И
Информатика
П
Право
А
Английский язык
Г
Геометрия
Қ
Қазақ тiлi
Л
Литература
И
История
Показать больше
Показать меньше
Natte1
15.04.2023 23:05 •
Информатика
Задан массив из 35 элементов, введенных с клавиатуры. упорядочить его элементы в порядке возрастания, а затем в порядке убывания. оба результата вывести на экран. ииспользовать оба варианта сортировки в 1 .
Показать ответ
Ответ:
mariapogorelova
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 оценок)
Популярные вопросы: Информатика
Дарья4311
26.01.2020 15:26
. Для хранения графического изображения, занимающего весь экран монитора с разрешением 2048 х 1536 пикселей и палитрой из 1024 цветов, потребуется 1) 20 Кбайт 2) 30 Мбайт 3) 21...
adamouzr
28.08.2022 01:00
определите разность суммы нечетных цифр и суммы четных цифр десятичного числа - 15151 в 15-ричной системе счисления....
agat2003
05.09.2022 12:42
По данной блок-схеме напишите псевдокод и программу на языке Пайтон...
Sark23
02.03.2023 23:30
Закодируйте слово ЗНАТЬ используя ровного кодирования букв алфавита их порядковыми номерами? быстро плз...
сергей1106
07.07.2022 21:47
С клавиатуры необходимо вывести десять целых чисел и вывести на экран четных чисел кратных 3. Необходимо использовать под программу C++...
Tima411
21.08.2022 07:34
Запишите по два варианта поисковых запросов для поиска указанной ниже информации. Задайте данные запросы в поисковых системах. Сделайте скриншоты окна поиска. Покажите результат...
polinaguskova
19.10.2022 02:54
Заполните таблицу в тетради. Напишите функции кнопок гиперссылок....
Анна200361
16.01.2020 00:01
Роль компьютерных технологий в повышении эффективности предприятий РТ...
lerachernenko1
10.05.2022 19:23
a) Определите вид цикла программы b)Нарисуйте блок схему c)Заполните трассировачную таблицу print(Введите n=8) n=int(input(n=)) s=0 i=1 whipe s n: i=i+1 s=s+i print (s,i)...
ТимурСилкин
10.05.2023 14:44
Аналог var arr: array[ A .. Z ] of integer в питон...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и 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