Maxim dintr-un șir

Se consideră șirul x1, x2, x3, ..., xk, ...., xn cu n componente și se pune problema găsirii elementului maxim și a poziției acestuia din șir.
Diagrama sau schema logică după care se scrie subprogramul este:

Ideia de subprogram apare din faptul că alegerea maximului dintr-un șir apare în numeroase probleme și deci de fiecare dată trebuie apelat un subprogram de bibliotecă și nu scrisă secvența respectivă.

         SUBROUTINE MAXIM (X,N,MAX)
         MAX=X(1)
         DO 10 I=2,N
         IF(MAX.LE.X(I)) GO TO 10
         MAX=X(I)
10     CONTINUE
          RETURN
         END
Dacă se dorește și aflarea poziției elementului minim subprogramului i se adaugă în lista de parametrii variabila IPOZ și ceva instrucțiuni de atribuire, după cum urmează:

         SUBROUTINE MAXIM (X,N,MAX,IPOZ)
         MAX=X(1)
         IPOZ=1
         DO 10 I=2,N
         IF(MAX.LE.X(I)) GO TO 10
         MAX=X(I)
         IPOZ=I
10     CONTINUE
          RETURN
         END
Am preferat să nu scriu acest subprogram ca subprogram funcție datorită faptului că îl voi folosi să returneze nu numai valoarea elementului maxim și și poziția pe care acesta se află. În plus, fără modificări semnificative îl modific să stabilesc și valorile maximă și minimă din șir și pozițiile acestora dacă vreau.

(14 decembrie 2017)