Ответы на вопрос:
Const nm = 100; {максимальная длина массива} var i, j, n, step, t: integer; a: array[1..nm] of integer; begin write('введите количество элементов в массиве: '); readln(n); write('введите элементы массива через пробел '); for i : = 1 to n do read(a[i]); { сортировка методом шелла } step : = n div 2; while step > 0 do begin for j : = n - step downto 1 do begin i : = j; while i < = n - step do begin if a[i] > a[i + step] then begin t : = a[i]; a[i] : = a[i + step]; a[i + step] : = t end; i : = i + step end end; step : = step div 2 end; writeln('*** отсортированный массив ***'); for i : = 1 to n do write(a[i], ' ') end. тестовое решение: введите количество элементов в массиве: 15 введите элементы массива через пробел 15 26 -35 7 0 21 5 9 27 0 -11 26 4 42 -23 *** отсортированный массив *** -35 -23 -11 0 0 4 5 7 9 15 21 26 26 27 42
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
персик0810.01.2021 07:13
-
mashanemiro110p08m3807.07.2022 09:34
-
знания209д28.09.2020 22:07
-
KotBosilio21.02.2021 08:12
-
Dia111111111111115.09.2021 19:15
-
Annet23427.02.2021 23:19
-
crosser00111.01.2020 04:59
-
godofwar17124.04.2022 00:32
-
Pikasso0702.09.2020 13:16
-
Yulduzka2815.12.2021 02:42
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.