Найти максимальные элементы каждой строки исходной матрицы

@edgecool777 · Регистрация: 22.12.2015

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

2)Найти максимальные элементы каждой строки исходной матрицы А(MxМ), М<=20 и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Преобразованную матрицу выдать на печать в общепринятом виде.

@vint-81 · 23.12.2015, 08:38

Pascal

const n=20;
type  matr=array[1..n,1..n] of integer;
var a:matr;
    i,j,m,max,tmp:integer;
procedure viv(x:matr;s:string);
var i,j:integer;
begin
 writeln(s);
 for i:=1 to m do
  begin
   for j:=1 to m do write(x[i,j]:4);
   writeln
  end
end;
begin
 randomize;
 repeat
  write('0<m<=',n,' m = ');readln(m)
 until (0<m)and(n>=m); 
 for i:=1 to m do
  for j:=1 to m do a[i,j]:=random(21);
 viv(a,'исходная:');
 for i:=1 to m do
  begin
   max:=1;
   for j:=2 to m do if a[i,j]>a[i,max] then max:=j;
   if i<>max then begin tmp:=a[i,max];a[i,max]:=a[i,i];a[i,i]:=tmp end
  end;
 viv(a,'измененная:');
 readln
end.

@edgecool777 0 / 0 / 0 Регистрация: 22.12.2015 Сообщений: 3
		1
	Найти максимальные элементы каждой строки исходной матрицы 22.12.2015, 20:56. Показов 1642. Ответов 1 Метки нет (Все метки) 2)Найти максимальные элементы каждой строки исходной матрицы А(MxМ), М<=20 и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Преобразованную матрицу выдать на печать в общепринятом виде. 0

	23.12.2015, 08:38

Найти максимальные элементы каждой строки исходной матрицы

Решение