Ответы на вопрос:
Const m = 6; n = 4; var a: array[1..m, 1..n] of integer; b: array[1..m] of integer; i, j, p, pmax, imax: integer; flag: boolean; begin {1} randomize; writeln('исходный массив'); for i : = 1 to m do begin for j : = 1 to n do begin a[i, j] : = random(81) - 40; write(a[i, j]: 4) end; writeln end; {2} writeln('произведения построчно'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; writeln(i, ': ', p: 9) end; {3} pmax : = -maxint; writeln('максимальное построчное произведение'); for i : = 1 to m do begin p : = 1; for j : = 1 to n do p : = p * a[i, j]; if pmax < p then begin pmax : = p; imax : = i; end end; writeln(imax, ': ', pmax: 9); {4} for i : = 1 to m do b[i] : = a[i, 1]; for i : = 2 to m do begin p : = b[i]; j : = i - 1; flag : = false; while (j > 0) and (not flag) do if p < b[j] then begin b[j + 1] : = b[j]; j : = j - 1 end else flag : = true; b[j + 1] : = p end; writeln('отсортированный первый столбец'); for i : = 1 to m do writeln(b[i]: 3) end. тестовое решение: исходный массив -27 4 3 14 15 40 -39 -27 40 -40 -40 -24 -38 7 18 1 17 27 29 -9 10 -32 38 0 произведения построчно 1: -4536 2: 631800 3: -1536000 4: -4788 5: -119799 6: 0 максимальное построчное произведение 2: 631800 отсортированный первый столбец -38 -27 10 15 17 40
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
йцццу04.02.2021 15:16
-
alina17anilaalina19.01.2022 22:39
-
fast0l0n26.03.2023 13:19
-
ZaraKerimova01.03.2020 22:16
-
Tiggeri26.06.2020 15:51
-
anosovadara17.08.2021 03:13
-
ыооп10.11.2022 14:09
-
АринаРоудер26.04.2023 13:49
-
anyaadamchuk222.12.2020 13:15
-
sevasik1227.04.2022 17:41
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.