Написать на листочке блок-схему и программу.
9.2)введите матрицу аn,m. посчитать количество нулевых элементов в верхней строке
и с верхним верхний сделала,но нужно свериться,я плохо это все понимаю)
113
480
Ответы на вопрос:
Const n = 6; // число строк m = 6; // число столбцов var a: array[1..n, 1..m] of integer; // основной массив rext: array[1..n, 1..2] of integer; // номера столбцов с min и max в строках cext: array[1..2, 1..m] of integer; // номера строк с min и max в столбцах i, j, amin, amax: integer; begin // заполняем массив а случайными числами randomize; writeln('исходный массив'); for i : = 1 to n do begin for j : = 1 to m do begin a[i, j] : = random(100) - 50; write(a[i, j]: 4); end; writeln; end; // заполняем массив rext n x 2 for i : = 1 to n do begin amin : = 10000; //заведомо больше a[i,j] amax : = -10000; //заведомо меньше a[i,j] for j : = 1 to m do begin if amin > a[i, j] then begin amin : = a[i, j]; rext[i, 1] : = j end; if amax < a[i, j] then begin amax : = a[i, j]; rext[i, 2] : = j end end; end; // заполняем массив cext 2 x m for j : = 1 to m do begin amin : = 10000; //заведомо больше a[i,j] amax : = -10000; //заведомо меньше a[i,j] for i : = 1 to n do begin if amin > a[i, j] then begin amin : = a[i, j]; cext[1, j] : = i end; if amax < a[i, j] then begin amax : = a[i, j]; cext[2, j] : = i end end end; writeln; // ищем седловые точки writeln('*** седловые точки ***'); for i : = 1 to n do begin j : = rext[i, 1]; if cext[2, j] = i then write('[', i, ',', j, '] ') else begin j : = rext[i, 2]; if cext[1, j] = i then write('[', i, ',', j, '] ') end end; writeln end. тестовое решение исходный массив 10 25 38 38 45 32 42 36 -39 -6 9 48 -25 -37 40 30 *** седловые точки *** [2,2]
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
pka00418.11.2021 12:09
-
Марк299221.10.2020 01:34
-
margo260616.09.2020 21:42
-
artiushkin21313.03.2023 21:41
-
Znanijaetosila111.03.2021 11:42
-
ПолиночкаПолина18.08.2022 20:28
-
linagalkinaa124.01.2020 16:21
-
Анюточка290619.05.2023 07:06
-
IDontKnow4623.04.2020 08:57
-
VadimShoppert01.09.2020 03:24
![Caktus Image](/tpl/img/cactus.png)
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.