Наибольший элемент в Главной диаганали матрицы [Паскаль]

[Mojevelnik]

Условие звучит Так . Найти наибольший элемент в побочной диагонали матрицы. Помогите закончить прогу вот наработки, запуталса млин.

program maxElementPobochnoidiaganali;

const
 N=5;
Var 
 matrix: array [1..N, 1..N] of integer;
 i,j: integer;       (*индексы массива*)
 mm: integer;
 max 
begin
 (*заполнение массива случайными числами от 0 до 100*)
 writeln('исходный массив');
  for i:= 1 to N do  (*цикл перебора всех строк*)
  begin
   for j:=1 to N do (* перебор всех элементов строки по столбам*)
    begin
     matrix[i,j]:=random(100);  (* вводим случайно в i-ой строке b j-ом cтолбце*)
     write(matrix[i,j]:3,' ');
    end;
    writeln('') 
  end;
  
 for i:=N to 1 do
  begin
   for j:=i to N do
    begin
    if matrix[Тут то что писать весь мосг сломал!!хелп]>matrix[j,j] then
     begin
      mm:=matrix[i,i];
      matrix[i,i]:=matrix[j,j];
      matrix[j,j]:=mm;
      i:=0;
      j:=N;
      max:=[i,j]
     end;
    end; 
  end;
  writeln[max]    
end.

[Greblin]

max := matrix[1][N];
for i := 1 to N do
  if matrix[i][N-i+1] > max then
    max := matrix[i][N-i+1];

Раз уж используете random не забудьте вызвать randomize вначале

[Mojevelnik]

program maxEl;

const
 N=10;
Var 
 matrix: array [1..N, 1..N] of integer;
 i,j: integer;       (*индексы массива*)
 mm: integer; 
begin
 randomize;
 (*заполнение массива случайными числами от 0 до 100*)
 writeln('исходный массив');
  for i:= 1 to N do  (*цикл перебора всех строк*)
  begin
   for j:=1 to N do (* перебор всех элементов строки по столбам*)
    begin
     matrix[i,j]:=random(100);  (* вводим случайно в i-ой строке b j-ом cтолбце*)
     write(matrix[i,j]:3,' ');
    end;
    writeln('') 
  end;
  
  mm:=matrix[1,N];(*инициализация вспомогательной переменной*)
  for i:=2 to N do (* перебор элементов побочной диагонали*)
  begin
   if matrix[i,N+1-i]>mm then
      mm:=matrix[i,N+1-i];
  end;
  
 writeln('максимальное значение в побочной диагонали ', mm);
    
end.

[andrewpalkin]

Такой вопрос , а что такое побочная диагональ ?

[alex_fcsm]

i:=1;
 IMax:=1;
while i<=n do
 begin
  if a[i,n-i+1]>a[Imax,n-Imax+1] then Imax:=i; - элементы побочной диагонали
    inc(i);
 end;

a[Imax,n-Imax+1] - после работы цикла это максимальный элемент