Напишите программу на...

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

 

var Z:array[1..5,1..5] of real;
   i, j: integer;
   min: real;
 
begin
   for i := 1 to 5 do
      for j := 1 to 5 do
         readln(Z[i,j]);
   min := Z[1,5];
   for i := 2 to 5 do
      if (min > Z[i,6-i]) then
         min := Z[i,6-i];
   writeln("Min value is ",min)
end.