10.2.. 12.119. Učitati  niz od 20 brojeva i ispisati najveći i najmanji broj u nizu.

Tekstualni algoritam:

  1. broj članova niza n=20
  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
  7. ispisati tekući  minimum kao najmanji član niza tmax

Listing programa:

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

Ispis na ekranu:

Index