Регистрация Спросить otvet5GPT
kaaanrakun
06.06.2023 03:56
Информатика
Есть ответ 👍

Нужна , всё переставить местами первую и последнюю строки в матрице.

133
406
Посмотреть ответы 2

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

ksysharoma123
ksysharoma123
4,7(82 оценок)
Const   m=6;   n=8; var   a: array[1..m,1..n] of integer;   i,j,r: integer; begin   randomize;   writeln('исходный массив');   for i : = 1 to m do   begin       for j : = 1 to n do       begin           a[i,j]: =random(100);           write(a[i,j]: 3)       end;       writeln   end;   for j: =1 to n do   begin r: =a[1,j]; a[1,j]: =a[m,j]; a[m,j]: =r end;   writeln('результирующий массив');   for i : = 1 to m do   begin       for j : = 1 to n do write(a[i,j]: 3);       writeln   end end. тестовое решение: исходный массив   6 93 10  3 80  4 47 71   33 33 75 85 93 22 53 16   83 30 39 95 35 53 30 83   29 43 83 54 88 83 49 67   24 67 47 97 82 40 67 35   42 26 67 23 28  8  8 45 результирующий массив   42 26 67 23 28  8  8 45   33 33 75 85 93 22 53 16   83 30 39 95 35 53 30 83   29 43 83 54 88 83 49 67   24 67 47 97 82 40 67 35   6 93 10  3 80  4 47 71
tanya101nfjgh0
tanya101nfjgh0
4,4(96 оценок)
Если элементы массива идут по возрастанию, то вот так program wstawka; uses crt; const min=1; max=20; type zona=min..max; massiw=array[zona] of integer; var mas: massiw; i,j: zona; a,n,m: integer; t: boolean; begin randomize; clrscr; n: =random(20); writeln('4ucjlo n = ',n);   m: =random(20); writeln('4ucjlo m = ',m); for i: =min to max-2 dobeginmas[i+1]: =mas[i]+random(5); write(mas[i],' '); end; for i: =min to max-2 doif (mas[i]> n) and (t=false) thenbegint: =true; a: =mas[i]; mas[i]: =n; for j: =i+1 to max dobeginn: =mas[j]; mas[j]: =a; a: =n; end; end; for i: =min to max-1 doif (mas[i]> m) and (t=true) thenbegin t: =false; a: =mas[i]; mas[i]: =m; for j: =i+1 to max dobeginm: =mas[j]; mas[j]: =a; a: =m; end; end; writeln; for i: =min to max do write(mas[i],' '); readkey; end.

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

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

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

Caktus Image

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

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

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

  • Сколько это стоит?

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

  • Могу ли я использовать otvet5GPT в школе?

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

  • В чем отличия от ChatGPT?

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

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

GTP TOP NEWS