Ответы на вопрос:
Const n=20; var a: array[1..20] of integer = ( 20, 9, 24, 12, 23, 24, 21, 17, 1, 15, 25, 8, 21, 2, 6, 4, 12, 16, 8, 13); i,j,k: integer; begin for i: =1 to n-1 do for j: =i+1 to n do if a[j]< a[i] then swap(a[i],a[j]); writeln('отсортированный массив: '); for i: =1 to n do write(a[i],' '); writeln; k: =0; i: =1; j: =2; repeat if a[j]-a[i]> =3 then begin writeln('пара: ',a[i],' ',a[j]); i: =j; inc(k); end; inc(j); until j> n; writeln('количество солдат: k+1); end.отсортированный массив: 1 2 4 6 8 8 9 12 12 13 15 16 17 20 21 21 23 24 24 25 пара: 1 4 пара: 4 8 пара: 8 12 пара: 12 15 пара: 15 20 пара: 20 23 количество солдат: 7
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ппам30.01.2021 18:58
-
tokio27204.03.2021 09:43
-
korolev9802.06.2022 17:50
-
Марк080821.12.2020 03:42
-
Zahar447212.06.2022 00:06
-
Aleksandra1977103.06.2020 14:20
-
Amina44130.01.2023 16:28
-
polinaroshupkina06.03.2020 10:03
-
Bayana00002.10.2020 14:13
-
eva30107.12.2020 15:52
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.