158 / 1 / 0
Регистрация: 14.09.2009
Сообщений: 58
1

Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце

28.10.2009, 03:13. Показов 1699. Ответов 2
Метки нет (Все метки)

Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсутствует, то вывести 0 .
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
28.10.2009, 03:13
Ответы с готовыми решениями:

Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце.
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...

Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...

Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце. Если такой элемент отсу
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...

Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце
Двумерные массивы(статическое выделение памяти) Дана целочисленная матрица размера M на N. Найти...

2
Retired
7726 / 2558 / 671
Регистрация: 17.10.2009
Сообщений: 5,100
28.10.2009, 04:20 2
https://www.cyberforum.ru/pascal/thread59492.html
это почти анаолгичная задача, посмотрите на решение, измените его немного и будет вам решение и этой... писать по нескольку раз в пол пятого утра как то не хочется...
1
113 / 85 / 56
Регистрация: 09.01.2009
Сообщений: 209
28.10.2009, 04:59 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
uses
  Crt;
type Matr = array[1..100,1..100] of integer;
var A:Matr;
    n:integer;
    yes:Boolean;
    row,col:Integer;
    i,j:Integer;
    s1,s2,s3,s4:Integer;
    op:Integer;
    op2:Char;
    f:Text;
 
{ввод случайный}
procedure inputR(var b:matr;var m:integer);
var i,j:integer;
begin
  for i :=1 to m do
  for j:= 1 to m do
    b[i,j]:=random(50);
end;
 
{ввод ручной}
procedure inputH(var b:matr;var m:integer);
var i,j:integer;
begin
  for i :=1 to m do
  for j:= 1 to m do
    begin
      writeln('input element[',i,j,']');
      readln(b[i,j])
    end;
end;
 
{вывод на экран}
procedure output(var b:matr;var m:integer);
var i,j:integer;
begin
  for i :=1 to m do
    begin
    for j:= 1 to m do
      write(b[i,j]:4);
    writeln;
    end;
end;
 
{Вывод в файл}
procedure outputMF(var b:matr;var m:integer;filename:string);
var i,j:integer;
    f:text;
begin
  assign(f,filename);
  rewrite(f);
    writeln(f,'Initial matrix');
  Writeln(f,'----------------');
  for i :=1 to m do
    begin
      for j:= 1 to m do
        write(f,b[i,j]:4);
      writeln(f);
    end;
    Writeln(f,'----------------');
  close(f);
end;
 
{поиск элемента одновременно максимального в строке и минимального в столбце}
procedure FindPoints(var b:matr;var r,c:Integer; var f:boolean);
var
 i,j:integer;
 k:integer;
 max,min:integer;
begin
  f:=false;
  for i:=1 to n do
    begin
      min := 1;
      for j:=1 to N do
        if a[i,j]>a[i,min] then min := j;
      max := 1;
      for k:=1 to n do
        if a[k,min]<a[max,min] then max := k;
      if max = i then begin
        f:=True;
        r:=max;
        c:=min;
      end;
    end;
    Writeln('b[',r,c,']=',b[r,c]);
end;
 
{основная программа}
begin
  Randomize;{// запуск генератора случайных чисел}
  s1:=0; {инициализация переменных}
  s2:=0;
  s3:=0;
  s4:=0;
  {ввод размерности матрицы}
  Writeln('Input dimension of matrix n=');
  Readln(n); {// ввод размерности матрицы}
  {выбор ввода элементов матрицы}
  Writeln('choose the input method:');
  Writeln('1-Hand');{ввод ручной}
  Writeln('2-Random'); {ввод случайных чисел}
  Readln(op);
  case op of
    1: inputH(a,n);{//ввод ручной }
  else
       inputR(a,n); {// ввод случайных чисел}
  end;
  clrscr;
 {вывод элементов матрицы на экран}
  writeln('Initial matrix');
  Writeln('----------------');
  output(a,n); {// вывод элементов матрицы на экран}
  Writeln('----------------');
  {поиск элемента по условию}
  FindPoints(a,row,col,yes);
  readln;
  end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
28.10.2009, 04:59
Помогаю со студенческими работами здесь

Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце
Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке и...

Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце
Дана прямоугольная матрица. Найти элемент, являющийся максимальным в своей строке и минимальным в...

Найти элемент матрицы, являющийся максимальным в своей строке и минимальным в своем столбце
Помогите пожалуйста написать программу.. Дана целочисленная матрица размера M × N. Найти...

Найти элемент, являющийся максимальным в своей строке и минимальным в своем столбце
1. Дана целочисленная матрица размера M x N. Найти элемент, являющийся максимальным в своей строке...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru