Найти максимальный элемент главной диагонали матрицы - Pascal

Формулировка задачи:

найти максимальный элемент главной диагонали матрицы Где ошибка?)

program fd;
  uses crt;
  var a:array[1..10,1..10] of integer;
  max:array[1..20,1..10]of integer;
  i,j,m,n,l,k:integer;
  f:string;
  begin
  clrscr;
  randomize;
  read(n,m);
  for i:=1 to n do
  for j:=1 to m do
  a[i,j]:=random(201)-100;
   for i:=1 to n do begin
  for j:=1 to m do
  write(a[i,j]:4); writeln; end;
     i:=1;j:=1;
     repeat
    max[i,j]:=a[i,j];
    if (a[i+1,j+1]>max[i,j]) then max[i,j]:=a[i,j];
    i:=i+1;j:=j+1;
    until (i>n)or (j>m);
    writeln(max[i,j]);
    end.

разобрался уже

Решение задачи: «Найти максимальный элемент главной диагонали матрицы»

Листинг программы

program fd;
  uses crt;
  var a:array[1..10,1..10] of integer;
      i,j,n,mx:integer;
  begin
  clrscr;
  randomize;
  write('Размер матрицы n=');
  readln(n);
  for i:=1 to n do
   begin
    for j:=1 to n do
     begin
      a[i,j]:=random(201)-100;
      write(a[i,j]:4);
     end;
    writeln;
   end;
  mx:=a[1,1];
  for i:=1 to n do
  if a[i,i]>mx then mx:=a[i,i];
  writeln('Максимальный элемент на главной диагонали=',mx);
  readln
  end.

Объяснение кода листинга программы

В данном коде используется язык программирования Pascal. Он предназначен для решения различных задач, включая обработку данных и вычисления. В начале кода объявляются необходимые переменные: массив a размером от 1 до 10 строк и от 1 до 10 столбцов, а также три переменные i, j и n для итерации по матрице, и переменная mx для хранения максимального элемента. Затем происходит очистка экрана с помощью функции clrscr. Далее пользователю предлагается ввести размер матрицы n. После этого происходит итерация по строкам матрицы. В каждой строке происходит итерация по столбцам и присваивание случайного значения элементу матрицы. Значение каждого элемента выводится на экран. После завершения итерации по строкам происходит проверка текущего максимума. Если текущий максимум меньше значения в первом элементе главной диагонали, то значение первого элемента главной диагонали становится новым максимумом. В конце программы выводится сообщение с максимальным значением элемента на главной диагонали. Таким образом, данный код решает задачу поиска максимального элемента на главной диагонали матрицы.