Numărarea elementelor matricei

Una dintre cele mai simple probleme este aceea de a număra elementele pozitive, elementele nule și elementele negative dintr-o matrice A cu m linii și n coloane.

         SUBROUTINE NUMAR (A,M,N,NRPOZ,NRNUL,NTNEG)
         NRPOZ=0

         NRNUL=0

         NRNEG=0
         DO 40 I=1,M

         DO 40 J=1,N

         IF(A(I,J)) 10,20,30

10     NRPOZ=NRPOZ+1

         GO TO 40 

20     NRNUL=NRNUL+1

         GO TO 40 

30     NRNEG=NRNEG+1      

40     CONTINUE

         RETURN
         END

Acest text sursă scris în C++ arată cu mult mai elegant:
..................
       nrpoz=nrnul=nrneg=0;
       if(a[i][j]>0) nrpoz++;
              else if(a[i][j]==0) nrnul++;
                      else nrneg++;
...................................
f[r[ niciun salt necondi'ionat ca ]n programul FORTRAN IV care are două, ceea ce justifică apropierea programatorilor de acest limbaj cu mult mai simplu și mai drăgălaș.

(26 decembrie 2017)