В двумерном массиве Z[1… 5,1…

const n=5; var i,j,max: integer; a: array [1… 5,1… 5] of integer; begin for i: =1 to n do begin for j: =1 to n do begin a[i,j]: =random (10); write (a[i,j],') end; writeln end; max: =a[n,1]; for i: =1 to n do if a[i,n-i+1]>max then max: =a[i,n-i+1]; writeln (max) end.