var A: array[1 .. 5,1 .. 5] of integer; i, j, n, min: integer;beginrandomize;n := 5;writeln('Случайная матрица:');for i:=1 to n dobegin 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 dobegin 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 dobegin 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 dobegin j := j - 1; if A[i, j] < min then min := A[i, j];end;writeln('Наименьший элемент соседней нижней диагонали: ',min);end.