Найти максимальные элементы каждой строки и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных

@from · Регистрация: 09.11.2012

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

Найти максимальные элементы каждой строки исходной матрицы А(N,N) (N<=10) и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Отпечатать исходную и преобразованную матрицы.

Новичок · 24.11.2012, 23:32

Держи:

Pascal

program Noname;
uses Crt;
const n=5;
var a:array[1..n,1..n] of Integer;
c:array[1..n] of Integer;
d:array[1..n] of Integer;
i,j,max:integer;
begin
ClrScr;
TextColor(14);
Writeln('Matrica:');
TextColor(15);
Randomize;
for i:=1 to n do
for j:=1 to n do a[i,j]:=Random(90)+10;
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
TextColor(14);
Writeln('Polucheniy massiv:');
TextColor(15);
for i:=1 to n do
d[i]:=a[i,i];
for i:=1 to n do
begin
max:=1;
for j:=1 to n do
if a[i,j]>a[i,max] then max:=j;
c[i]:=a[i,max];
a[i,max]:=d[i];
end;
for i:=1 to n do
a[i,i]:=c[i];
for i:=1 to n do
begin
for j:=1 to n do
if a[i,j]<10 then Write(a[i,j],'  ')
else Write(a[i,j],' ');
Writeln;
end;
Readln;
end.

@from · 27.11.2012, 00:17 **[ТС]**

Спасибо. А можно ли как-то обойтись без использования переменной j?

Добавлено через 8 минут
А также без использования массивов c и d?

Новичок · 28.11.2012, 18:40

Если честно,не знаю я не спец по массивам и матрицам.

@from 0 / 0 / 0 Регистрация: 09.11.2012 Сообщений: 14
		1
	Найти максимальные элементы каждой строки и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных 24.11.2012, 15:02. Показов 3540. Ответов 3 Метки нет (Все метки) Найти максимальные элементы каждой строки исходной матрицы А(N,N) (N<=10) и поместить их на главную диагональ, а диагональные элементы поместить на место максимальных. Отпечатать исходную и преобразованную матрицы. 0

@from 0 / 0 / 0 Регистрация: 09.11.2012 Сообщений: 14
	27.11.2012, 00:17 [ТС]	3
	Спасибо. А можно ли как-то обойтись без использования переменной j? Добавлено через 8 минут А также без использования массивов c и d? 0

Новичок 1647 / 1095 / 488 Регистрация: 17.07.2012 Сообщений: 5,356
	28.11.2012, 18:40	4
	Если честно,не знаю я не спец по массивам и матрицам. 0