Дан массив а(14): 1,-3,6,-5,-2,8,-9,14,-24,15,17,12,17,4 составить программу обработки массива: 1) найти максимальный элемент среди элементов, стоящих на четных местах. 2) удалить минимальный элемент массива. 3) поменять местами первый и последний элементы массива. 4) вставить в середину массива элемент равный 10. решить на паскале, без рандома, с этими конкретными значениями.

171

248

Посмотреть ответы 3

Ответы на вопрос:

nastya291204061012

Информатика

4,5(95 оценок)

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

kkdyming48kg

Информатика

4,7(75 оценок)

Program test; const n=14 var i, i1, x, s, mx : integer; t: string; m1: array [1..n] of integer; begin for i : = 1 to n do //ввод данных begin writeln ('введите очередной элемент --> '); read (x); m1[i] : = x; end; mx : = m1[2]; // поиск максимального элемента for i : = 4 by 2 to n do begin x : = m1[i]; if (x > mx) then mx : = x; end; writeln('максимальный элемент ',mx); mx : = m1[1]; // поиск минимального элемента for i : = 2 to n do begin x : = m1[i]; if (x < mx) then begin mx : = x; i1 : = i; end; end; for i : = i1 to (n-1) do m1[i] : = m1[i+1]; //удаление минимального элемента x : = m1[1]; //меняем местами 1-й и последний элементы m1[1] : = m1[n-1]; m1[n-1] : = x; for i : = (n-1) by (-1) to 8 do m1[i-1] : = m1[i]; //вставляем. освобождаем место m1[7] : = 10; //вставили. for i : = 1 to n do writeln(i, ' --> ', m1[i]); //результат end; end.

Antistar

Информатика

4,6(44 оценок)

В1 мегабайте 1024 килобайт 4527/1024=4.=4.420.следовательно ответ под в правильный

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.