.Сформировать одномерный массив Х из элементов главной диагонали матрицы А . Найти максимальный элемент массива и его номер.

VAR    mx, ind: Integer;    n, m, i, j: Integer;    b: Array of Integer;    a: Array of Array of Integer; BEGIN    Read(n); SetLength(a, n+1);     For i := 1 to n do SetLength(a[i], n+1);    For i := 1 to n do       For j := 1 to n do Read(a[i][j]);    SetLength(b, n+1);    For i := 1 to n do b[i] := a[i][i];    mx := b[1]; ind := 1;    For i := 2 to n do        If (mx < b[i]) then begin           mx := b[i]; ind := i; End;    Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx); END. Или намного проще (если нужен только ответ): VAR    mx, ind, el: Integer;    n, m, i, j: Integer; BEGIN    Read(n);    // Присваем макс. элементу самое минимальное число,    // которое точно не встретится в массиве    mx := -999999999;    For i := 1 to n do       For j := 1 to n do begin            Read(el);          If (i <> j) then Continue;          If (mx < el) then begin              mx := el; ind := i; End; End;    Write('Макс. элемент гл. диагонали - B[',ind,'] = ', mx); END.