Решаем задачи Абрамян на Паскале. Matrix46

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

Решение:

program Matrix46;
var
  a:array [1..10,1..10] of integer;
  M, N, i, j, i2, i3, j2,j3:Integer;

begin
 Write('N: ');
 Readln(N);
 Write('M: ');
 Readln(M);

 for  i:=1 to M do
  begin
   writeln(i,': ');
   for j:=1 to N do
    begin
     Write(j,' : ');
     Read(a[i,j]);
    end;
  end;

 for  i:=1 to M do
  for j:=1 to N do
   begin
    j3:=0;
    for j2:=1 to N do if a[i,j]<a[i,j2] then inc(j3);

    i3:=0;
    for i2:=1 to M do if a[i,j]<a[i2,j] then inc(i3);

    if ((i3=M-1) and (j3=N-1)) then Writeln (j,':',i,' = ',a[i,j]);
   end;
end.

program Matrix46;

var

a:array [1..10,1..10] of integer;

M, N, i, j, i2, i3, j2,j3:Integer;

begin

Write('N: ');

Readln(N);

Write('M: ');

Readln(M);

for i:=1 to M do

begin

writeln(i,': ');

for j:=1 to N do

begin

Write(j,' : ');

Read(a[i,j]);

end;

for i:=1 to M do

for j:=1 to N do

begin

j3:=0;

for j2:=1 to N do if a[i,j]<a[i,j2] then inc(j3);

i3:=0;

for i2:=1 to M do if a[i,j]<a[i2,j] then inc(i3);

if ((i3=M-1) and (j3=N-1)) then Writeln (j,':',i,' = ',a[i,j]);

end;

end.

Другие задачи из раздела Matrix можно посмотреть здесь.

Комментарии 3

Bronislav

03.09.2018 в 13:23

Неправильно работает. У вас поиск в строках минимального, а нужно максимального (строка 26). Это раз. Два — а что если в строке (или столбце) несколько максимальных (минимальных) элементов? Тогда у вас при сравнении таких одинаковых максимумов (минимумов) строгое сравнение выдаст false. Нужно использовать нестрогое сравнение и добавить чтобы элемент не сравнивался с самим собой. Строка 26:

for j2 := 1 to N do if (j2 <> j) and (a[i, j] >= a[i, j2]) then inc(j3);

1

for j2 := 1 to N do if (j2 <> j) and (a[i, j] >= a[i, j2]) then inc(j3);

Строка 29:

for i2 := 1 to M do if (i2 <> i) and (a[i, j] <= a[i2, j]) then inc(i3);

1

for i2 := 1 to M do if (i2 <> i) and (a[i, j] <= a[i2, j]) then inc(i3);

Ответить

program Matrix46;//pabc.net

begin
  var m := 3;
  var n := 3;
  
  var a := MatrRandom(m, n, 0, 100); a.Println;
  
  var found := false;
  
  for var i := 0 to m - 1 do
  begin
    var Maxi := a.Row(i).Max;
    
    for var j := 0 to n - 1 do//check all Maxi elements in the i-Row
      if a[i, j] = Maxi then
      begin
        var foundLess := false;
        for var k := 0 to m - 1 do
          if a[k, j] < maxi then foundLess := true;
        if not foundLess then
        begin
          found := true;
          Writeln($'A[{i+1},{j+1}] = {Maxi}')
        end
      end
  end;
  
  if not found then Write('0')
end.

program Matrix46;//pabc.net

begin

var m := 3;

var n := 3;

var a := MatrRandom(m, n, 0, 100); a.Println;

var found := false;

for var i := 0 to m - 1 do

begin

var Maxi := a.Row(i).Max;

for var j := 0 to n - 1 do//check all Maxi elements in the i-Row

if a[i, j] = Maxi then

begin

var foundLess := false;

for var k := 0 to m - 1 do

if a[k, j] < maxi then foundLess := true;

if not foundLess then

begin

found := true;

Writeln($'A[{i+1},{j+1}] = {Maxi}')

end

end;

if not found then Write('0')

end.

Ответить

asdfg

17.02.2020 в 16:16

поясните за алгоритм верхний — не понял что за магия

Ответить

Решаем задачи Абрамян на Паскале. Matrix46

Комментарии:

Комментарии 3

Добавить комментарий Отменить ответ