Nikolaa

Subtitle

PROGRAM DOMACI
        DIMENSION A(100,100)
        PRINT *, 'Unesite dimenzije kvardratne matrice A'
        READ (*,*),N
        PRINT *, 'Uneti matricu A'
        READ(*,*),((A(I,J),J=1,N),I=1,N)
        PROIZVOD=FUN(N,A)
        PRINT *,'Polovina dobijenog proizvoda               je',
        PROIZVOD/2
        END

        FUNCTION FUN(N,A)
        DIMENSION A(100,100)
        SY=0
        PZ=1
        DO 30 I=1,N
        DO 40 J=1,N
        IF((I.EQ.1).AND.(J.GT.1).AND.(J.LT.N))THEN
        SY=SY+A(I,J)
        ELSE
        IF((J.EQ.N).AND.(I.GT.1).AND.(I.LT.N))THEN
        SY=SY+A(I,J)
        ELSE
        IF((I.EQ.N).AND.(J.GT.1).AND.(J.LT.N))THEN
        PZ=PZ*A(I,J)
        ELSE
        IF((J.EQ.1).AND.(I.GT.1).AND.(I.LT.N))THEN
        PZ=PZ*A(I,J)
        ENDIF
        ENDIF
        ENDIF
        ENDIF
40      CONTINUE
30      CONTINUE
        FUN=PZ*SY
        RETURN
        END