10.2.. Učitati članove i naći najveći član 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 := ABS(X[1]);)
5.  za i = 2 do n radi                          
     5.1.  ako je tmax < ABS(X[i]) tada je tmax = ABS(X[i])
6.  ispisati tekući  maksimum kao najveći član niza tmax

Listing programa:

PROGRAM P10511005;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i, tmax : 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 := ABS(X[1]);
  FOR i := 2 TO n DO
      IF tmax < ABS(X[i]) THEN
        tmax := ABS(X[i]);
  WRITELN('NAJVECI CLAN NIZA ',tmax);
END.

Ispis na ekranu:

Index