Calcul medie aritmetică

Dacă se consideră un șir X cu n elemente și se cere scrierea programului MEDIARITM pentru calculul mediei aritmetice XMED programul este:

         SUBROUTINE MEDIARITM (X,N,XMED)
         SUM=0.
         DO 10 I=1,N
10     SUM=SUM+X(I)

         XMED=SUM/N
         RETURN
         END

O variantă mai specială este:

         SUBROUTINE MEDIARITM (X,N,XMED, IK)
         SUM=0.
         DO 10 I=1,N
10     SUM=SUM+X(I)

         IF(N.LT.1) GO TO 20

         IK=1

         XMED=SUM/N

         GO TO 30

20     IK=2

         XMED=-1.
30     RETURN
         END

IK - 1 dacă se calculează corect media aritmetică;

IK - 2 dacă nu s-a calculat că nu este corect numărul de termeni, media incorectă dar returnată este -1.

Calcul medie aritmetică are două variante, una mai simplă alta mai complicată care presupune ca după apel să fie testată variabila de stare IK.