Дана матрица A(n×m). Скорректировать эту матрицу, удалив из нее строку и столбец, на пересечении которых - Pascal

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

Дана матрица A (n×m). Скорректировать эту матрицу, удалив из нее строку и столбец, на пересечении которых расположен элемент с наибольшим по модулю значением.

Код к задаче: «Дана матрица A(n×m). Скорректировать эту матрицу, удалив из нее строку и столбец, на пересечении которых - Pascal»

textual
var
  a: array[1..20, 1..20] of integer;
  i, j, n, m, i_max, j_max: integer;
 
begin
  write('Введите n, m: ');
  readln(n, m);
  writeln('Исходная матрица:');
  for i := 1 to n do
  begin
    for j := 1 to m do
    begin
      a[i, j] := -99 + random(199);
      write(a[i, j]:4);
    end;
    writeln;
  end;
  writeln;
  
  i_max := 1; j_max := 1;
  for i := 1 to n do
    for j := 1 to m do
      if abs(a[i, j]) > abs(a[i_max, j_max]) then
      begin
        i_max := i;
        j_max := j;
      end;
  writeln('|Max| = ', 'a[', i_max, ',', j_max, '] = ', a[i_max, j_max]);
  writeln;
  
  for i := 1 to n do
    for j := j_max to m - 1 do
      a[i, j] := a[i, j + 1];
  
  for j := 1 to m - 1 do
    for i := i_max to n - 1 do
      a[i, j] := a[i + 1, j];
  writeln('Преобразованная матрица:');
  for i := 1 to n - 1 do
  begin
    for j := 1 to m - 1 do
      write(a[i, j]:4);
    writeln;
  end;  
  readln;
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

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


СОХРАНИТЬ ССЫЛКУ