نوشتن ماتریس با نرم افزار مطلب

[Borna66]

با سلام
من میخواستم یک ماتریس m * n با نرم افزار مطلب بنویسم هر کسی که بلده میشه به منم کمک کنه

اینم مورد درخواستی شما دوست گرامی
برنامه‌ نمونه ماتریس N×N

سوال) در هر ماتریس با سطر و ستون بزرگتر یا مساوی 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

روزگار خوش