Есть ответ 👍

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

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

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


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

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

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

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

Caktus Image

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

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

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

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

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

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

Подпишись на наш телеграмм канал

GTP TOP NEWS