Работа 3.7 Упр.24 ГДЗ Семакин 10 класс (Информатика)

Задача

В данной действительной квадратной матрице порядка $$n$$ найти наибольший по модулю элемент. Получить квадратную матрицу порядка $$n-1$$ путём отбрасывания из исходной матрицы строки и столбца, на пересечении которых расположен элемент с найденным значением.

Подробный ответ

Сначала находим в квадратной матрице элемент с наибольшим модулем и запоминаем его координаты $$m_i$$ и $$m_j$$. Затем выводим новую матрицу порядка $$n-1$$, пропуская строку $$m_i$$ и столбец $$m_j$$.

var i, j, n, m_i, m_j: byte;
A: array[1..100,1..100] of Real;
maxmod: Real;
begin
  randomize;
  writeln(‘Vvedite N:’);
  readln(n);
  for i:=1 to n do
    for j:=1 to n do
      A[i,j]:=-100+random(200);
  maxmod:=abs(A[1,1]);
  m_i:=1;
  m_j:=1;
  for i:=1 to n do
    for j:=1 to n do
      if abs(A[i,j])>maxmod then
      begin
        maxmod:=abs(A[i,j]);
        m_i:=i; m_j:=j;
      end;
  writeln(‘Isxodnaya matrica:’);
  for i:=1 to n do
  begin
    for j:=1 to n do write(A[i,j]:6:1);
    writeln;
  end;
  writeln(‘Maximalnyj po module element A[‘,m_i,’,’,m_j,’] = ‘, A[m_i,m_j]:6:1);
  for i:=1 to n do
    if (i<>m_i) then
    begin
      for j:=1 to n do
        if (j<>m_j) then write(A[i,j]:6:1);
      writeln;
    end;
  readln;
end.