Отсортировать последовательность 25 1 13 42 8 6 14 методом сортировки подсчетом.
247
345
Ответы на вопрос:
Const n = 7; type vector = array[1..n] of integer; procedure sortbycount(a: vector; kol: integer; var b: vector); {сортировка подсчетом} var i, j: integer; c: array[1..50] of integer; begin for i : = 1 to 50 do c[i] : = 0; for j : = 1 to kol do c[a[j]] : = c[a[j]] + 1; for i : = 2 to 50 do c[i] : = c[i] + c[i - 1]; for j : = kol downto 1 do begin b[c[a[j]]] : = a[j]; c[a[j]] : = c[a[j]] - 1 end end; var a: vector : = (25, 1, 13, 42, 8, 6, 14); b: vector; i: integer; begin writeln('исходный массив'); for i : = 1 to n do write(a[i]: 4); writeln; sortbycount(a, n, b); writeln('отсортированный массив'); for i : = 1 to n do write(b[i]: 4); end. тестовое решение: исходный массив 25 1 13 42 8 6 14 отсортированный массив 1 6 8 13 14 25 42
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
DDaVV12.01.2021 00:33
-
Roman232120.07.2021 09:04
-
Кираfox1501.12.2021 20:14
-
LUCOVERUS02.09.2020 16:22
-
ivkov200308.10.2021 01:01
-
Aiauka1114.01.2022 09:39
-
казан229.07.2022 16:50
-
kklll1g15.02.2022 16:57
-
zalalova0507.04.2023 07:34
-
Янчик31213.05.2021 07:50
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.