Войти
Регистрация
Спроси ai-bota
В
Все
Х
Химия
В
Видео-ответы
А
Алгебра
Г
Геометрия
О
ОБЖ
Д
Другие предметы
У
Українська література
Р
Русский язык
Б
Беларуская мова
У
Українська мова
Э
Экономика
Ф
Физика
М
Математика
Ф
Французский язык
Г
География
И
Информатика
М
МХК
О
Окружающий мир
П
Психология
Н
Немецкий язык
О
Обществознание
П
Право
И
История
М
Музыка
Л
Литература
Қ
Қазақ тiлi
Б
Биология
А
Английский язык
Показать больше
Показать меньше
Arina5751
13.06.2022 18:20 •
Информатика
Отсортировать массив по возрастанию (один массивом)
Ответ:
красотка356
07.10.2020 07:45
// PascalABC.NET 3.3, сборка 1579 от 18.11.2017
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
Пример
n= 13
24 13 -40 -41 46 37 -16 -21 -39 39 -10 -28 15
-41 -40 -39 -28 -21 -16 -10 13 15 24 37 39 46
0,0
(0 оценок)
Популярные вопросы: Информатика
dolgikof
28.09.2021 08:48
Решить с паскаль №3.определить, является ли слово перевертышем , №4.печать всех делителей натурального числа a, №5.печать всех совершенных чисел до 10000....
kristinakuleh
26.10.2022 22:09
Тема: Таблицы истинности. Построить таблицу истинности Порядок выполнения: 1. Отрицание 2. Логическое умножение (&) 3. Логическое сложение (V) F= a & b V a &...
romaha1
29.10.2022 11:14
Даны три числа. найти наибольшее из них, с учетом того, что некоторые из них могут быть равны. pascal...
1941108
17.11.2021 20:34
Представим что каждую секунду человек произносит один звук.пусть маусимальное количество произносимых звуков 256.какое количество информации человек воспроизводит за 70...
КитиКэт13
17.11.2021 20:34
Удалите из сообщения все знаки препинания. c regex ( на javascript)...
Зозяська
25.11.2020 03:12
Придумайте алгоритм из реальной жизни с пост проверкой. !...
рррр194
07.01.2022 22:36
Https://www.richmond.com/calendar/123movies-watch-365-dni-365-days-2020-full-movie-online-free/event_ad666754-8fc8-11ea-b032-83a1a089bbc5.html https://www.richmond.com/calendar/123movies-watch-365-dni-365-days-2020-full-movie-online-free--123movies/event_b3a825d0-8fc8-11ea-8a78-5cb9017b8d1b.html...
spilberg3
17.02.2022 02:23
Онлайн тест пад,відповіді на тест з інформатики 6 клас розв язування задач поділу на підзадачі...
кек946
29.08.2020 18:04
4-тапсырма. Берілген мәліметтер бойынша көне түркі жазба ескерткіштерін тұңғыш зерттеуші ғалым ретінде рөлге бөлініп, күрделі-құрама атауларды байланыстырып, сұхбат құрыңдар....
DIMITMARASIT
08.07.2021 22:06
Write the words under the correct headings умоляю...
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota
Оформи подписку
О НАС
О нас
Блог
Карьера
Условия пользования
Авторское право
Политика конфиденциальности
Политика использования файлов cookie
Предпочтения cookie-файлов
СООБЩЕСТВО
Сообщество
Для школ
Родителям
Кодекс чести
Правила сообщества
Insights
Стань помощником
ПОМОЩЬ
Зарегистрируйся
Центр помощи
Центр безопасности
Договор о конфиденциальности полученной информации
App
Начни делиться знаниями
Вход
Регистрация
Что ты хочешь узнать?
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ArrRandom(ReadInteger('n='),-50,50); a.Println;
a.Sort; a.Println
end.
Пример
n= 13
24 13 -40 -41 46 37 -16 -21 -39 39 -10 -28 15
-41 -40 -39 -28 -21 -16 -10 13 15 24 37 39 46