Question

pascal. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали в этой же строке

Answer 1

Const
maxn = 100;
type
myarr = array [1..maxn, 1..maxn] of longint;
var
a: myarr;
n, i, j, max, ini, c: longint;
begin
readln(n, m);
for i := 1 to n do begin
max := -maxInt;
for j := 1 to m do begin
read(a[i, j]);
if (a[i, j] > max) then begin
max := a[i, j];
ini := j;
end;
end;
c := a[i, i];
a[i, i] := max;
a[i, ini] := c;
end;
for := 1 to n do begin
for j := 1 to m do
write(a[i, j], ' ');
writeln;
end;
end.

Answer 2

Чтобы найти наибольший элемент в каждой строке и поменять его местами с элементом главной диагонали в этой же строке в целочисленной квадратной матрице, нужно выполнить следующие шаги:

1. Найти индекс наибольшего элемента в каждой строке.
2. Заменить элемент на главной диагонали в этой же строке с найденным наибольшим элементом.

Вот пример реализации этого алгоритма на языке программирования Pascal:

pascalCopy code
program SwapMaxWithDiagonal;

const
  N = 3; // Размерность матрицы (здесь для примера 3x3)

type
  TMatrix = array[1..N, 1..N] of Integer;

procedure FindMaxInRowsAndSwap(var matrix: TMatrix);
var
  i, j, maxIndex, temp: Integer;
begin
  for i := 1 to N do
  begin
    maxIndex := 1;
    
    // Находим индекс наибольшего элемента в текущей строке
    for j := 2 to N do
    begin
      if matrix[i, j] > matrix[i, maxIndex] then
        maxIndex := j;
    end;
    
    // Меняем местами элемент на главной диагонали с найденным наибольшим элементом
    if maxIndex <> i then
    begin
      temp := matrix[i, i];
      matrix[i, i] := matrix[i, maxIndex];
      matrix[i, maxIndex] := temp;
    end;
  end;
end;

procedure PrintMatrix(const matrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to N do
      Write(matrix[i, j]:4);
    Writeln;
  end;
end;

var
  matrix: TMatrix;
  i, j: Integer;
begin
  // Здесь нужно заполнить матрицу своими значениями
  // Например, случайными числами или вводом с клавиатуры
  // В этом примере заполним матрицу значениями для иллюстрации
  for i := 1 to N do
    for j := 1 to N do
      matrix[i, j] := Random(100); // Здесь используется генератор случайных чисел до 99
  
  Writeln('Исходная матрица:');
  PrintMatrix(matrix);

  FindMaxInRowsAndSwap(matrix);
  
  Writeln;
  Writeln('Матрица после замены:');
  PrintMatrix(matrix);
end.

Примечание:

1. В этом примере предполагается, что размерность матрицы известна и равна N. В реальном приложении может потребоваться ввод размерности матрицы пользователем.
2. Ввод значений матрицы не включен в пример, и используется случайное заполнение для иллюстрации. В реальной программе матрицу нужно будет заполнить соответствующим образом перед вызовом процедуры FindMaxInRowsAndSwap.