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

Задана квадратная матрица. Переставить строку с максимальным элементом на главной диагонали со строкой с заданным номером $$m$$.

Сначала в матрице ищется строка, в которой на главной диагонали стоит максимальный элемент. Для этого при просмотре элементов $$a[i,j]$$ проверяются только диагональные элементы $$a[i,i]$$. Номер строки с максимальным диагональным элементом запоминается в переменной $$s1$$.

Затем вводится номер строки $$s2$$, с которой нужно выполнить обмен. После этого поэлементно меняются местами строки $$s1$$ и $$s2$$.

for i:=1 to n do
for j:=1 to n do
begin
  a[i,j]:=random(20);
  if (i=1) and (j=1) then begin s1:=i; m:=a[i,j]; end
  else if i=j then if a[i,j]>m then begin s1:=i; m:=a[i,j]; end;
end;
readln(s2);
for j:=1 to n do
begin
  m:=a[s1,j];
  a[s1,j]:=a[s2,j];
  a[s2,j]:=m;
end;

Таким образом, программа находит строку с максимальным элементом на главной диагонали и переставляет её со строкой с номером $$s2$$.

Ответ: строка с максимальным элементом на главной диагонали меняется местами со строкой с номером $$s2$$.