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

Задача

Рассмотрим вариант решения задания из учебника Семакин, Хеннер, Шеина 10 класс, Бином: 4. Дана целочисленная квадратная матрица. Найти в каждой строке наибольший элемент и поменять его местами с элементом главной диагонали в этой же строке. *Цитирирование задания со ссылкой на учебник производится исключительно в учебных целях для лучшего понимания разбора решения задания. 10 semakin10 pract/3-7/4 98

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

Нужно для каждой строки квадратной матрицы найти наибольший элемент и поменять его местами с элементом главной диагонали этой строки, то есть с элементом $$a[i,i]$$.

Алгоритм такой:

Для каждой строки $$i$$ запоминаем текущий максимум и его столбец.
Просматриваем все элементы строки и находим наибольший.
Меняем местами найденный максимум $$a[i,\text{index}]$$ и диагональный элемент $$a[i,i]$$.
После обработки всех строк выводим матрицу.

var
  a: array[1..n,1..n] of integer;
  max: array[1..n] of integer;
  i, j, t, index, index1: integer;
begin
  randomize;
  for i := 1 to n do
    for j := 1 to n do
      a[i,j] := random(100);
  for i := 1 to n do
  begin
    max[i] := a[i,1];
    index := i;
    index1 := 1;
    for j := 1 to n do
      if a[i,j] > max[i] then
      begin
        max[i] := a[i,j];
        index := i;
        index1 := j;
      end;
    t := a[i,i];
    a[i,i] := max[i];
    a[index,index1] := t;
  end;
  for i := 1 to n do
  begin
    for j := 1 to n do
      write(a[i,j]:4);
    writeln;
  end;
end.