12.117. Učitati niz X od n članova ispisati one članove  niza X koji su manji od prvog (zadnjeg) člana niza.

Opis programa: Program ispisuje one članove niza X koji su veći od prvog člana niza. Provjera se izvodi u FOR petlji kao što je navedeno:

  FOR i := 2 TO n DO
    IF X[1] > X[i] THEN
      WRITELN('X[',i,']= ',X[i]);

Za poređenju sa zadnjim članom tada bi FOR i IF naredba izgledale:

  FOR i := 1 TO n-1 DO
    IF X[n] > X[i] THEN
      WRITELN('X[',i,']= ',X[i]);

Listing programa:

PROGRAM P10511004;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i: INTEGER;
  X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Veci od prvog clana niza');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 2 TO n DO
    IF X[1] > X[i] THEN
      WRITELN('X[',i,']= ',X[i]);
END.

Ispis na ekranu:

Index