// PascalABC.NET 3.2, сборка 1467 от 02.06.2017
// Внимание! Если программа не работает, обновите версию!
begin
var n:=ReadInteger('Количество строк и столбцов в массиве:');
Writeln('*** Исходный массив ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*n*'-');
var min:=a[0,n-1];
for var i:=1 to n-1 do
if a[i,n-i-1] Writeln('Минимальный элемент на побочной диагонали равен ',min)
end.
Пример
Количество строк и столбцов в массиве: 7
*** Исходный массив ***
-73 45 -54 73 62 -65 27
-42 68 -61 -92 69 -44 73
28 -90 85 10 69 -42 -8
15 12 9 -52 -97 11 61
-9 -68 -2 -93 85 -48 -35
61 -76 -78 91 -23 -15 16
-25 51 -38 60 -19 -22 -3
----------------------------
Минимальный элемент на побочной диагонали равен -76