Вдвумерном массиве [1..6,1..7] поменять местами 1 и 2, 3 и 4, 5 и 6 строки.
250
276
Ответы на вопрос:
// pascalabc.net 3.2, сборка 1417 от 28.03.2017 // внимание! если программа не работает, обновите версию! begin writeln('*** исходный массив [6,7] ***'); var a: =matrrandom(6,7,-99,99); a.println(4); writeln(4*a.colcount*'-'); writeln('*** результирующий массив [6,7] ***'); for var i: =0 to 2 do a.swaprows(2*i,2*i+1); a.println(4) end. пример *** исходный массив [6,7] *** 16 -26 -12 33 39 -28 -6 15 -77 15 63 -30 -59 -62 -14 -3 -94 42 49 86 95 -74 75 -69 -44 -43 -2 -62 -68 82 -36 -30 -92 -88 34 -34 16 81 -67 4 -8 80 *** результирующий массив [6,7] *** 15 -77 15 63 -30 -59 -62 16 -26 -12 33 39 -28 -6 -74 75 -69 -44 -43 -2 -62 -14 -3 -94 42 49 86 95 -34 16 81 -67 4 -8 80 -68 82 -36 -30 -92 -88 34
const n = 6; m = 7; var a: array[1..n,1..m] of integer; i,j,b: integer; procedure obmen(n1,n2: integer); var j: integer; begin for j: = 1 to m do begin b: =a[n1,j]; a[n1,j]: =a[n2,j]; a[n2,j]: =b; end; end; begin writeln('исходный массив: '); for i: = 1 to n do begin for j: = 1 to m do begin a[i,j]: =random(21)-10; write(a[i,j]: 3,' '); end; writeln; end; writeln('изменённый массив: '); obmen(1,2); obmen(3,4); obmen(5,6); for i: = 1 to n do begin for j: = 1 to m do write(a[i,j]: 3,' '); writeln; end; end. исходный массив: -1 8 -2 3 -7 3 -10 -4 8 6 2 -1 10 -8 -5 -7 0 2 -6 -2 4 10 -1 -6 -5 2 2 -7 7 -2 8 -8 -3 7 -2 -9 -7 9 2 -2 3 -6 изменённый массив: -4 8 6 2 -1 10 -8 -1 8 -2 3 -7 3 -10 10 -1 -6 -5 2 2 -7 -5 -7 0 2 -6 -2 4 -9 -7 9 2 -2 3 -6 7 -2 8 -8 -3 7 -2
mail ru
В mail ru можно получать и отправлять почту.
если я не ошибаюсь там можно еще играть, задавать вопросы или отвечать на др вопросы.
Объяснение:
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
romapotseluiko07.10.2020 17:10
-
katyakiseleva309.04.2020 10:18
-
UlianaIvleva27.11.2021 12:11
-
ЗиА1104.03.2021 05:12
-
shumilovakate13.06.2020 21:25
-
7554514.10.2022 22:50
-
Влад1173746304.03.2022 12:30
-
irishkakrasa30.06.2021 09:37
-
anna451302.08.2022 13:04
-
aziret3110109.05.2022 10:10
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.