Pascal отсортировать по возрастанию положительные элементы массивы вывести исходный и изменить массивы можно использовать любой метод сортировки массив заполнить случайными положительными и отрицательными целым числами
123
206
Ответы на вопрос:
//лень было расписывать быструю сортировку, так что вот "пузырёк" //pascal abc.net 3.1 сборка 1219 const n=10; var i: integer; procedure booblesort(var ar: array of integer; n: integer); var i,j: integer; begin for i: =0 to n-1 do for j: =i+1 to n do if (ar[i]> ar[j]) and (ar[i]> 0) and (ar[j]> 0) then swap(ar[i],ar[j]); end; begin randomize; var ar: =arrrandominteger(n,-10,10); writeln('first array: '); ar.println; booblesort(ar,n-1); writeln('final array: '); ar.println; end. пример работы программы: first array: -9 -5 5 -9 4 -3 -9 4 10 8 final array: -9 -5 4 -9 4 -3 -9 5 8 10
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ikonnikoval11.08.2022 23:38
-
zbbzk08.07.2020 02:16
-
1020304050201707.08.2020 11:11
-
nn81492122.07.2022 07:59
-
Mmmmmmlllll18.01.2020 20:33
-
kadochkina06120.09.2022 05:54
-
yunis200709.01.2023 19:13
-
khomyak201601.01.2023 13:26
-
fotoschoolio16.03.2023 01:57
-
Cheather12.06.2021 10:56
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.