Поменять местами первый столбец матрицы со столбцом, содержащим наибольший элемент главной диагонали

@Maddy12 · Регистрация: 27.12.2010

Author24 — интернет-сервис помощи студентам

В заданной матрице поменять местами первый столбец со столбцом, содержащим наибольший элемент главной диагонали

@patricksmirnov · 27.12.2010, 23:51

Pascal

program sd;
uses crt;
const N=5;
      m=5;
type matrica=array[1..n,1..m] of integer;
var a:matrica;
i,j,max,k,buf:integer;
Begin
Randomize;
for i:=1 to n do
begin
 
for j:=1 to m do
begin
     a[i,j]:=Random(9)+1;
     write(a[i,j]:3);
end;
writeln;
end;
max:=a[1,1];
k:=1;
for i:=2 to n do
if a[i,i]>max then
begin
     max:=a[i,i];
     k:=i;     //здесь номер столбца,в котором максимум
end;
 if k=1 then writeln('Максимальный элемент диагонали матрицы находится в 1 столбце')
 
 else
 begin
for i:=1 to n do
begin
buf:=a[i,1];
a[i,1]:=a[i,k];
a[i,k]:=buf;
end;
writeln('Результат: ');
for i:=1 to n do
begin
for j:=1 to m do write(a[i,j]:3);
writeln;
end;
end;
End.

@Maddy12 0 / 0 / 0 Регистрация: 27.12.2010 Сообщений: 5
		1
	Поменять местами первый столбец матрицы со столбцом, содержащим наибольший элемент главной диагонали 27.12.2010, 22:19. Показов 1113. Ответов 1 Метки нет (Все метки) В заданной матрице поменять местами первый столбец со столбцом, содержащим наибольший элемент главной диагонали 0

	27.12.2010, 23:51

Поменять местами первый столбец матрицы со столбцом, содержащим наибольший элемент главной диагонали

Решение