Напишите программу на паскале. В двумерном массиве Z[1..5,1..5]найти наименьший элемент среди элементов вспомогательной(побочной) диагонали

Предыдущий
вопрос Следующий
вопрос

Программа на паскале:

program MinElementOnSecondaryDiagonal;
const
N = 5;
type
TwoDimArray = array[1..N, 1..N] of Integer;
var
Z: TwoDimArray;
i, j, minElement: Integer;
begin
// заполнение двумерного массива Z
for i := 1 to N do
begin
for j := 1 to N do
begin
Z[i, j] := Random(10); // заполнение случайными значениями от 0 до 9
write(Z[i, j], ' ');
end;
writeln;
end;
// поиск наименьшего элемента на побочной диагонали
minElement := Z[1, N];
for i := 2 to N do
begin
if Z[i, N - i + 1] < minElement then
minElement := Z[i, N - i + 1];
end;
writeln('Наименьший элемент на побочной диагонали: ', minElement);
end.

Эта программа создает двумерный массив размером 5x5, заполняет его случайными значениями от 0 до 9 и находит наименьший элемент на побочной диагонали.