Поменять местами строку с максимальным элементом

@wadiggor · Регистрация: 12.01.2010

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

@Inadequate · 15.01.2010, 18:03

Сначала находим максимум главной диагонали

Pascal

max:=1;
for i:=2 to N do
  if a[i,i]>a[max,max] then
    max:=i;

Потом вводим проверяя значение m

Pascal

repeat
  readln(m);
until  
  m in [1..N];

Ну и в конце концов меняем строчки если они не совпадают

Pascal

if max<>m then
  for j:=1 to N do
  begin
    temp:=a[max,j];
    a[max,j]:=a[m,j];
    a[m,j]:=temp
  end;

Вот, собственно, и всё. Ввод\вывод матрицы остаётся за Вами.

@wadiggor 0 / 0 / 0 Регистрация: 12.01.2010 Сообщений: 13
		1
	Поменять местами строку с максимальным элементом 15.01.2010, 17:42. Показов 1230. Ответов 1 Метки нет (Все метки) Задана квадратная матрица.Поменять местами строку с максимальным элементом на главной диогонали со строкой с заданным номером m. 0

	15.01.2010, 18:03

Опции темы

Решение