Var
A: array[1 .. 5,1 .. 5] of integer;
i, j, n, min: integer;
begin
randomize;
n := 5;
writeln('Случайная матрица:');
for i:=1 to n do
begin
for j:=1 to n do
begin
A[i,j]:=Random(51)-25;
write(A[i,j]:4);
end;
writeln;
end;
//Верхняя
j := n;
min := A[1, n - 1];
for i := 1 to n - 1 do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней верхней диагонали: ',min);
//Побочная
j := n + 1;
min := A[1, n];
for i := 1 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент побочной диагонали: ',min);
//Нижняя
j := n + 1;
min := A[2, n];
for i := 2 to n do
begin
j := j - 1;
if A[i, j] < min then min := A[i, j];
end;
writeln('Наименьший элемент соседней нижней диагонали: ',min);
end.
