Isidora Radenković 86/2016
Click here to edit subtitle
Nacrtati algoritam i napisati funkcijski potprogram koji glavnom programu vraca srednju vrednost clanova obe dijagonale podmatrice m-tog reda (m se definise u glavnom programu) u kvadratnoj matrici. A proizvoljne dimenzije n ( m ≤ n). Podmatrica uvek sadrzi clan A11.
PROGRAM DOMACI 2
DIMENSION A(100,100)
PRINT*,'Unesi br. kolona i vrsta'
READ*,N
PRINT*,'Unesi clanove matrice'
READ*,((A(I,J),I=1,N),J=1,N) Srvrd=SV(A,N)
PRINT*,'Srednja vrednost je:',Srvrd
PAUSE
END
FUNCTION SV(A,N)
DIMENSION A(100, 100)
Br=0
Sum=0
DO I=1,M
DO J=1,M
IF ((I.EQ.J).OR.(I+J).EQ.(M+1)) THEN
Br=Br+1
Sum=Sum+A(I,J)
ENDIF
ENDDO
ENDDO
Sv=Sum/Br
RETURN
END