Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal

Формулировка задачи:

Дан двумерный числовой массив. Исключив из него строку и столбец,на пересечении которых находится максимальный элемент.

Код к задаче: «Исключить из матрицы строку и столбец, на пересечении которых находится максимальный элемент - Turbo Pascal»

textual
Uses Crt;
Const
  MaxX = 4;
  MaxY = 6;
Var
  m0        : array[1..MaxX,1..MaxY] of Integer;
  i,j,mx,my : Byte;
Begin
  ClrScr;
  mx:=1; my:=1;
  For i:=1 to MaxX do
   For j:=1 to MaxY do
  Begin
    m0[i,j]:=Random(100);
    GoToXY(i*3,j); Write(m0[i,j]);
    If m0[i,j]>m0[mx,my] then
    Begin
      mx:=i; my:=j;
    End;
  End;  
  Writeln;
  Writeln;
  For j:=1 to MaxY do
  Begin
    For i:=1 to MaxX do
      If (i<>mx) and (j<>my) then Write(m0[i,j]:2,' ');
    If my<>j then Writeln;
  End;
End.
Эта работа вам не подошла?

Вы всегда можете заказать любую учебную работу у наших авторов от 20 руб.

11   голосов, оценка 3.909 из 5


СДЕЛАЙТЕ РЕПОСТ
Похожие ответы