Дана матрица А размером 5x5 , все элементы которой разны .

program zz1;

const n = 5;  

     m = 5; // задаем количество элементов в массиве

var  i, j, max, min:integer; // задаем переменные целого типа

a:array [1..n,1..m] of integer;

begin

for i:=1 to n do

 for j:=1 to m do // получаем числа и записываем их в массив

   read(a[i,j]);

   max:=-1000;min:=1000;

for i:=1 to n do

 for j:=1 to m do

 if j =  i then

 begin

 if a[i,j]gt; max then  max:=a[i,j];

 if a[i,j]lt; min then  min:=a[i,j];

 end;

 writeln;

for i:=1 to n do

 for j:=1 to m do

 if j =  i then write(a[i,j], );

 writeln;

writeln( наивеличайший элемент на основной диагонали = , max);  

writeln( меньший элемент на главной диагонали = , min);  

end.