Для заданной целой матрицы размером (M*N) напечатать индексы всех ее седловых точек

@jick08 · Регистрация: 16.12.2009

Студворк — интернет-сервис помощи студентам

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

Добавлено через 31 секунду

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
repeat
write('Vvedite kolichestvo strok ');
readln(x);
until x in [1..nmax];
repeat
write('Kolichestvo stolbcov ');
readln(y);
writeln('    Polyshilas takaia matritsa ');
until y in [1..nmax];
for i:=1 to x do
 begin
  for j:=1 to y do
   begin
    mt[i,j]:=random(50);
    write(mt[i,j]:6);
   end;
  writeln;
 end;
end;
procedure search(mt:Tmatr;x,y:byte;var mx:integer);
var lit: array[1..nmax] of integer;
    i,j:byte;
    k:integer;
begin
writeln('Naimenshie hisla matritsi:');
for i:=1 to x do
 begin
  k:=mt[i,1];
  for j:=1 to y do
  if k > mt[i,j] then k:=mt[i,j];
  writeln('naimenshee iz stroki ',i,'=',k);
  lit[i]:=k;
 end;
writeln;
mx:=lit[1];
for i:=1 to x do
if mx < lit[i] then mx:=lit[i];
writeln('naibolshee iz naimenshih=',mx);
end;
var
  n,m:byte;
  max:integer;
  mas:Tmatr;
begin
clrscr;
Randomize;
Vvod(mas,n,m);
search(mas,n,m,max);
readln;
end.

@ZX Spectrum-128 · 20.05.2019, 19:12

агош, https://www.cyberforum.ru/post429930.html

Новые блоги и статьи Все статьи Все блоги /
ИИ не может найти нужный язык в списке Supersumestria 05.10.2026 Я ему даю вот такое изображение и прошу найти и подчеркнуть немецкий язык. Возвращает он вот это: https:/ / i. **********/ vqBWLe2. png Нужную строчку в 3й колонке просто выдумал. . Это. . .	Новая последняя моя музыка в SUNO zorxor 05.10.2026 Здравствуйте, дорогие мои друзья! С большой радостью я хотел бы представить вам свою новую последнею музыку, которую сгенерировала мне по моей просьбе нейросеть SUNO. С уважением, zorxor. Это. . .	Nekobox - outbounds[0].transport: unknown transport type: raw damix 01.10.2026 Фикс ошибки Правым кликом по серверу -> отладочная информация -> edit Заменить "net": "raw", на "net": "tcp", Нажать кнопку reload.	Программный домашний кинотеатр russiannick 27.09.2026 Сподобился на программный домашний кинотеатр. В качестве ЯВУ по традиции выбрал js. В помощники взял Яндекс-Алису. Было создано три зала на разные интересы. исторические и ретро сериал Хичкок. . .
Беседа с ИИ о программистах, недопускающих к созданию и правке кода генеративные ИИ и причины этого zorxor 21.09.2026 Раньше я радовался или получал некоторые эмоции, пусть небольшие, но всё же, от самого процесса написания кода, рекомпиляции и запуска, видя постепенное развитие программы и прочее. А теперь лень. . .	Мобильное приложение ColorStep pavlinmavlin 17.09.2026 Реализовал приложение Красный, Зеленый, Синий в Unity3d + c#. Название изменил на ColorStep. Приложение прошло модерацию и теперь доступно для скачивания. Делал его сам, шаг за шагом — и вот,. . .	Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .

@ZX Spectrum-128 6812 / 4568 / 4820 Регистрация: 05.06.2014 Сообщений: 22,433
	20.05.2019, 19:12
	агош, https://www.cyberforum.ru/post429930.html 0

Опции темы