Nacrtati algoritam i napisati funkcijski potprogram koji u celobrojnoj matrici proizvoljnih dimenzija, prebrojava neparne pozitivne članove i dodeljuje im vrednost 0. Napisati i glavni program koji će učitati matricu kolona po kolona, pozvati funkcijski potprogram i štampati broj pronađenih članova.
GLAVNI PROGRAM
PROGRAM AA
DIMENSION K(15,15)
PRINT*,'UNESI BORIJ KOLONA MATRICE M'
READ*,M
PRINT*,'UNESI BROJ VRSTA MATRICE M'
READ*,N
PRINT*,'UNESI MATRICU M KOLONA PO KOLONA'
READ*,((K(I,J),I=1,M),J=1,N)
L=KK(K,M,N)
PRINT*,'BROJ NEARNIH CLANOVA MATRICE JE:'
PRINT*,L
PAUSE
END
FUNKCISKI PODPROGRAM
FUNCTION KK(K,M,N)
DIMENSION K(15,15)
KBR=0
DO 10 I=1,M
DO 20 J=1,N
IF((K(I,J).GT.0).AND.((MOD (K(I,J),2)).NE.0))THEN
K(I,J)=0
KBR=KBR+1
ENDIF
20 CONTINUE
10 CONTINUE
KK=KBR
RETURN
END
