Напишите, что и в какой последовательности будет выведено на экран в результате выполнения следующей программы (в точности нарисуйте, как это будет выглядеть на экране): var a: integer; b: real; begin a: =2; writeln(a); b: =a*a+3*a; write(′при а= ′,a,′, ответ ′,b); write(′ end′); end.
125
489
Ответы на вопрос:
Const n = 14; var i, m, p: integer; a: array[1..n] of integer: =(1,-3,6,-5,-2,8,-9,14,-24,15,17,12,17,4); begin writeln('исходный массив'); for i: =1 to n do write(a[i]: 4); writeln; {найти максимальный элемент среди элементов, стоящих на четных местах} i: =4; m: =a[2]; while i< =n do begin if m< a[i] then m: =a[i]; i: =i+2 end; writeln('максимальный из элементов на четных местах: ',m); {удалить минимальный элемент массива} m: =a[1]; p: =1; for i : = 1 to n do if m> a[i] then begin m: =a[i]; p: =i end; for i: =p to n-1 do a[i]: =a[i+1]; writeln('массив после удаления минимального элемента ',m); for i: =1 to n-1 do write(a[i]: 4); writeln; {поменять местами первый и последний элементы массива} writeln('массив после обмена местами крайних элементов'); m: =a[1]; a[1]: =a[n-1]; a[n-1]: =m; for i: =1 to n-1 do write(a[i]: 4); writeln; {вставить в середину массива элемент равный 10} p: =(n-1) div 2 + 1; for i: =n-1 downto p do a[i+1]: =a[i]; a[p]: =10; writeln('массив после вставки в середину элемента со значением 10'); for i: =1 to n do write(a[i]: 4); writeln end. результат выполнения программы: исходный массив 1 -3 6 -5 -2 8 -9 14 -24 15 17 12 17 4 максимальный из элементов на четных местах: 15 массив после удаления минимального элемента -24 1 -3 6 -5 -2 8 -9 14 15 17 12 17 4 массив после обмена местами крайних элементов 4 -3 6 -5 -2 8 -9 14 15 17 12 17 1 массив после вставки в середину элемента со значением 10 4 -3 6 -5 -2 8 10 -9 14 15 17 12 17 1
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
ivankornev0026.03.2022 20:15
-
CH4PP1E08.07.2020 03:45
-
nikoldasha42113.08.2020 06:12
-
bezheveck16.02.2022 15:42
-
кристина216103.04.2021 20:50
-
sashabelousoydf1w20.12.2021 01:42
-
diman12200127.10.2022 16:14
-
Danil022026.09.2021 00:12
-
guardrus10.03.2022 14:38
-
YerasylAmangeldi15.04.2023 05:54
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.