Элемент матрицы назовем седловой точкой,если он является наименьшим в своей строке и одновременно наибольшим в своем столбце или,наоборот,является наибольшим в своей строке и наименьшим в своем столбце. для заданной целой матрицы размером n*m напечатать индексы всех ее седловых точек.

116

190

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

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

adobycina43

Информатика

4,7(7 оценок)

Const n = 4; 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. тестовое решение: исходный массив 35 34 -17 -33 20 -29 -8 -31 -4 -20 8 -1 -39 -7 -12 27 42 9 32 13 -17 37 19 -24 *** седловые точки *** [2,5]

TanyaMakarova26

Информатика

4,6(37 оценок)

Пример работы программы: (pascalabc.net) ввод: 35+2*67+89-/- (эквивалентно 2*(3++7)/(8-9)) вывод: 29 ответ в файле vvvvvvvvvvvvvv

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

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

Задай свой вопрос

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

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

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

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

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

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

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