Заполнить двумерный массив 3x4 случайными числами в интервале [-50..50] и отсортировать построчно по возрастанию.
200
375
Ответы на вопрос:
Const m = 3; n = 4; var a: array[1..m, 1..n] of integer; i, j, k, t: integer; begin randomize; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(101) - 50; write(a[i, j]: 4) end; writeln end; { пузырьковая сортировка по возрастанию в строках } for i: =1 to m do for k : = 1 to n-1 do for j : = 1 to n-1 do if a[i,j] > a[i,j+1] then begin t : = a[i,j]; a[i,j] : = a[i,j+1]; a[i,j+1] : = t end; writeln('сортировка по строкам'); for i : = 1 to m do begin for j : = 1 to n do write(a[i, j]: 4); writeln end end. тестовое решение: исходный массив 41 5 -19 -6 46 -27 37 5 33 18 -39 -4 сортировка по строкам -19 -6 5 41 -27 5 37 46 -39 -4 18 33
Program t1; var i, j: integer; mas: array [1..10] of integer; begin randomize; writeln ('сгенерированный масив: '); for i : = 1 to 3 do writeln; for j : = 1 to 4 do begin mas[i,j] : = random (100) - 50; write (mas[i,j]); end; end; begin for i: =1 to 3 do for i: =1 to 3 do for k: =1 to 3-i do if m[k] > m[k+1] then swap(mas[k],mas[k+1]) end end; end; writeln ('отсортированный по возрастанию массив (построчно): '); for i : = 1 to 3 do writeln; for j : = 1 to 4 do write (mas[i,j]); end; end; end.
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
thienla014.08.2020 14:20
-
vol1204.12.2022 03:38
-
пвмыиыо24.05.2020 05:33
-
Nikitos22845602.09.2022 01:51
-
Стефанія201615.11.2021 07:58
-
ledylog20.12.2022 13:34
-
Derbershto39711.04.2021 05:58
-
EnoTProKoP22.05.2022 14:19
-
AvtOriaAnn11.07.2020 10:32
-
алекс161103.05.2023 22:46
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.