12.130. Naći najveći član i indeks najvećeg člana niza.

Tekstualni algoritam
1.  broj članova niza n=5
2.  dimenzionisati niz
3.  za i = 1 do n radi                          
     3.1. upis i-tog člana niza                  
4.  početna vrijednost tekućeg maksimuma (tmax := X[1];) i indeksa ind := 1.
5.  za i = 2 do n radi                          
     5.1.  ako je tmax < X[i] tada je tmax = X[i]
6.  ispisati tekući  maksimum kao najveći član niza tmax

Listing programa:

PROGRAM P10511036;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i, tmax, ind : INTEGER;
  X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('NAJVECI CLAN NIZA');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  tmax := X[1];
  ind := 1;
  FOR i := 2 TO n DO
    IF tmax < X[i] THEN
      BEGIN
        tmax := X[i];
        ind := i;
      END;
  WRITELN('Najveci clan niza ', tmax, ' indeks najeveceg je ', ind);
END.

Ispis na ekranu:

Index