матрица

[Razdolbai]

Здравствуйте ребята, помогите пожалуйста с поставленной задачей, вам это как раз плюнуть думаю) Задача такова:
Надо найти максимальный элемент матрицы вне главной диагонали, то есть диагональные элементы не брать в счет, матрицу и ее размерность должен задать пользователь, вот такая вот задачка, помогите))

[Вадим Мошев]

У вас есть какие-нибудь заготовки? Что уже сделали?

[Razdolbai]

я написал что бы искала максимальную, но я не знаю как ограничить что бы он диагональ не трогал(

uses crt;
const nmax=20;
var a:array[1..nmax,1..nmax] of integer;
    m,n,i,j:byte;
    mx:integer;
begin
clrscr;
randomize;
repeat
write('Количество строк до ',nmax,' m=');
readln(m);
until m in [1..nmax];
repeat
write('Количество столбцов до ',nmax,' n=');
readln(n);
until n in [1..nmax];
writeln('Исходная матрица:');
for i:=1 to m do
 begin
  for j:=1 to n do
   begin
    a[i,j]:=random(20);
    write(a[i,j]:4);
   end;
  writeln;
 end;
writeln;
for j:=1 to n do
 begin
  mx:=a[1,j];
  for i:=1 to m do
  if a[i,j]>mx then mx:=a[i,j];
  writeln('Максимальный в столбце ',j:2,'=',mx);
 end;
readln
end.

[Вадим Мошев]

Если элемент лежит на главной диагонали, то его индексы (i и j) совпадают между собой. Думайте.

[Razdolbai]

почему это они должны совпадать?

[Вадим Мошев]

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

почему это они должны совпадать?

Они не должны. Они совпадают.

[Razdolbai]

ну я и имел ввиду почему они совпадают?

[Вадим Мошев]

Потому что эти элементы находятся на столбцах и строках, порядковые номера которых совпадают.

[Razdolbai]

http://www.cyberforum.ru/attachments/76922d1305182073

вот принцип я так понимаю такой, но я не пойму куда именно этот фрагмент кода вставить надо(

[Вадим Мошев]

Можно было бы поступить так. Проверяете условие

его индексы (i и j) совпадают между собой.

. Если выполняется, то переходите к следующей итерации цикла.