Question

в двухмерном массиве А(4,4)найти наибольший элемент, лежащий на главной диагонали

Answer 1

var
  a: array[1..4,1..4]of integer;
  i,j,max: integer;
begin
  max:=-MaxInt;  
  for i := 1 to 4 do  
  for j:=1 to 4 do
      begin  
          read(a[i,j]);    
           if (i=j) and (a[i,j]>max) then max:=a[i,j];    
      end;    
   writeln('max = ',max);  
end.
abs pascal