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 := X[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 P10511001;
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 := X[1];
  FOR i := 2 TO n DO
    IF tmax < X[i] THEN
      tmax := X[i];
  WRITELN('NAJVECI CLAN NIZA ',tmax);
END.

Ispis na ekranu:

Index