Удалить максимальный элемент из одномерного массива размерностью 10, заполненного с клавиатуры. вставить после минимального элемента ноль.
Ответы на вопрос:
program adikalok; uses crt; const n=10; var a: array [1..10] of integer; i,min,max: integer; begin writeln('*** alphaues is ***'); writeln('*** ok ***'); writeln(); randomize; writeln('элементы массива: '); {создание и вывод массива} for i: =1 to n do begin a[i]: =random(100)-50; write (a[i]: 5); end; {ищем номера мин и мах} min: =1; max: =1; for i: =1 to n do begin if a[min]> a[i] then min: =i; if a[max]< a[i] then max: =i; end; if min< max then //min находится левее чем max begin for i: =max downto min+2 do a[i]: =a[i-1]; a[min+1]: =0; end else //min находится правее чем max begin for i: =max to min do a[i]: =a[i+1]; a[min]: =0; end; writeln(); writeln('результат: '); for i: =1 to n do write(a[i]: 5); end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
эрика9603.03.2021 06:06
-
тетямотя721.12.2020 22:58
-
Ананасяя15.04.2022 02:35
-
RedBalloon10.09.2020 19:04
-
AlexOge21.04.2023 20:33
-
788SOS11125.05.2023 20:56
-
1337zezar104.03.2023 15:51
-
228ANONIM133703.07.2021 07:18
-
Hujaev0107.12.2021 05:50
-
yokofoku03.07.2020 21:29
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.