Nacrtati algoritam i napisati opšti podprogram koji učitava realnu kvadratnu matricu A, dimenzije nxn, unuljava sve simetrične članove koji zadovaljavu uslov jednakosti (uslov da su dva realna broja jednaka je da je njihova razlika po apsolutnoj vrednosti manja od e, gde je e parametar podprograma, Napisati i glavni program koji ce učitati matricu, učitati parametar, pozvati opšti podprogram i štampati matricu

       SUBROUTINE OPSTI(A,N,E)
       DIMENSION A(100,100)
       DO 10 I=1,N
       DO 20 J=1,N
       IF(ABS((A(I,J)-A(J,I))).LT.E)THEN
       A(I,J)=0
       A(J,I)=0
       ENDIF
20     CONTINUE
10     CONTINUE
       RETURN
       END
       
       PROGRAM START
       DIMENSION A(100,100)
       PRINT *,'UNESITE DIMENZIJU MATRICE'
       READ *, N
       PRINT *, 'UNESITE ZADATI BROJ'
       READ *, E
       PRINT*,'UNESITE CLANOVE MATRICE'
       READ *,((A(I,J),J=1,N),I=1,N)
       CALL OPSTI(A,N,E)
       PRINT *,'IZMENJENA MATRICA JE',((A(I,J),J=1,N),I=1,N)
       END