Učitati članove niza. Ispisati: članove niza koji su veći od slijedećeg člana.

Opis programa: Zadatak se rješava sa FORpetljom. Logički izraz IF X[i] > X[i+1] Kontrolna varijabla i u FOR petlji se mijenja od 1 do n-1.

Listing programa:

PROGRAM P10111004;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Parni indeks');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 1 TO n-1 DO  {izlaz}
    IF X[i] > X[i+1] THEN
      WRITELN('X[',i,']= ',X[i]);
END.

Ispis na ekranu:

Index