Заполнить массив случайными числами в интервале[ -100 ; 100] и поменять местами соединение элементы,стоящие на четных местах,с элементами,стоящими на нечетных местах.вычислить кол-во четных элементов.гномья сортировка.
115
196
Ответы на вопрос:
Var i,j,t,x: integer; a: array[1..10]of integer; begin writeln('исходный массив: '); for i: =1 to 10 do begin a[i]: =random(-100,100); write(a[i]: 5) end; i: =2; while i< 11 do begin t: =a[i]; a[i]: =a[i-1]; a[i-1]: =t; i: =i+2 end; writeln; writeln('переставленный массив: '); for i: =1 to 10 do begin write(a[i]: 5); if a[i] mod 2=0 then x: =x+1 end; writeln; writeln('четных элементов: ',x); //гномья сортировка i: = 2; j: = 3; while i < 11 do if a[i - 1] > a[i] then begin i: = j; j: = j + 1 end else begin t: = a[i - 1]; a[i - 1]: = a[i]; a[i]: =t; i: = i - 1; if i = 1 then begin i: = j; j: = j + 1 end end; writeln('отсортированный массив: '); for i: =1 to 10 do write(a[i]: 5) end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Ден281117.01.2021 21:27
-
Nikcdi07.08.2022 05:56
-
sonjasonjasonja19.04.2023 00:22
-
beka986703.05.2022 19:40
-
Violettik200622.03.2022 02:07
-
polinakket23.08.2020 05:16
-
2891658710.06.2021 17:50
-
Nurzhan9419.07.2020 04:07
-
merkulovaannet29.01.2022 23:55
-
zzz2610197324.01.2023 09:14
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.