سوال) در هر ماتریس با سطر و ستون بزرگتر یا مساوی 3، عناصر داخلی وجود دارد که توسط 8 عنصر احاطه شده است. مثلا در یک ماتریس 3×3  عنصر 2,2 چنین خاصیتی دارد. برنامه‌ای کلی بنویسید که برای یک ماتریس N×N برای هر عنصر داخلی ماتریس، عنصر ماکزیمم از عناصر محصورکننده را پیدا نموده و آن را چاپ نماید. مثال:

11  7  -2
-7  14  3
2  -3  5
عنصر داخلی این ماتریس برابر 14 و عنصر ماکزیمم محصورکننده برابر 11 است.

Integer , Dimension (:,:), Allocatable :: Mat
Integer N
Integer Maximum
Print*, "Please Enter N (Matrix is N*N):"
Read*, N
Allocate (Mat (N,N))
Print*, "Please Enter Matrix Elements (Mat (1,1), Mat(1,2), ...):"
Do I = 1, N
  Do J = 1, N
    Read*, Mat (I,J)
  End Do
End Do
Do I = 1, N
  Do J = 1, N
    If (I > 1 .And. I < N .And. J > 1 .And. J < N) Then
      Maximum = Max (Mat(I-1,J), Mat(I+1,J), Mat(I,J-1), Mat(I,J+1), &
                Mat(I-1,J+1), Mat(I+1,J-1), Mat(I+1,J+1), Mat(I-1,J-1))
      Print*, Maximum
    End If 
 End Do
End Do  
End