Матрица и нахождение макс правого угла

Serheo · 31.05.2011, 12:46

Приветствую, формучане! Помогите исправить задачу:

Код:

program z;
const n=3;
var
a:array [1..n,1..n] of real;
i,j:integer;
max:real;
begin
max:=-10000000;
writeln ('Aaaaeoa iao?eoo ');
for i:=1 to n do
for j:=1 to n do 
begin
read (a[i,j]);
end;
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
for i:=1 to n do Begin
for j:=1 to n do
write (a[i,j]:8:2);
Writeln;
end;
writeln ('max element=',max:8:2);
readln
end.

Эта задачи ищет макс элемент во всей матрице. Мне нужно чтобы вы испрвили эту задачу так, что бы программа искала макс элемент в правом нижнем углу относительно главной диагонали

Vladimir_S · 31.05.2011, 12:59

Цитата:

Сообщение от Serheo

та задачи ищет макс элемент во всей матрице. Мне нужно чтобы вы испрвили эту задачу так, что бы программа искала макс элемент в правом нижнем углу относительно главной диагонали

Надеюсь, что это описка, и не относительно главной, а относительно побочной диагонали, идущей из правого верхнего угла в левый нижний. Ежели так, то:
Фрагмент
for i:=1 to n do
for j:=1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
заменяем
а) если включаем саму диагональ, то
for i:=1 to n do
for j:=n-i+1 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;
б) если не включаем диагональ, то
for i:=2 to n do
for j:=n-i+2 to n do
begin
if a[i,j]>max then max:=a[i,j];
end;

31.05.2011, 12:46	#1 (permalink)
Serheo Новичок Регистрация: 27.05.2011 Сообщений: 2 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Матрица и нахождение макс правого угла Приветствую, формучане! Помогите исправить задачу: Код: program z; const n=3; var a:array [1..n,1..n] of real; i,j:integer; max:real; begin max:=-10000000; writeln ('Aaaaeoa iao?eoo '); for i:=1 to n do for j:=1 to n do begin read (a[i,j]); end; for i:=1 to n do for j:=1 to n do begin if a[i,j]>max then max:=a[i,j]; end; for i:=1 to n do Begin for j:=1 to n do write (a[i,j]:8:2); Writeln; end; writeln ('max element=',max:8:2); readln end. Эта задачи ищет макс элемент во всей матрице. Мне нужно чтобы вы испрвили эту задачу так, что бы программа искала макс элемент в правом нижнем углу относительно главной диагонали

31.05.2011, 12:46
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Ваш топик на эту тему не единственный, вот похожие Матрица NxN Матрица 7х7 Нахождение минимальных пересечений Матрица Матрица Техрегламент с запретом правого руля

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070