var
i, j, n, min_r, max_r, max_a, min_a:integer;
<span>a:array [</span>1..10000, 1..10000<span>] of </span>integer;
begin
randomize;
writeln('Введите размер матрицы
N x N:');
readln(n);
writeln('Введите минимальное
значение генерации эл. массива:');
readln(min_r);
writeln('Введите максимальное
значение генерации эл. массива');
readln(max_r);
writeln();
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
a[i, j]:=random(max_r, min_r);
writeln('Сгенерированная матрица:');
for i:=1 to <span>n do</span>
begin
for j:=1 to <span>n do</span>
write(a[i, j]:3, ' ');
writeln();
end;
writeln();
max_a:=a[1, 1];
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
if <span>(i<j) and (max_a<a[i, j]) then</span>
max_a:=a[i, j];
min_a:=a[n, 1];
for i:=1 to <span>n do</span>
for j:=1 to <span>n do</span>
if (i+j>n+1<span>) and (min_a>a[i, j]) then</span>
min_a:=a[i, j];
writeln('Максимальный элемент
среди элементов матрицы расположенных выше главной диагонали: ', max_a);
writeln('Минимальный элемент
среди элементов матрицы расположенных ниже побочной диагонали: ', min_a);
writeln('Сумма: ', max_a+min_a);
end<span>.</span>