10.2.. 12.120. Učitati niz A od n članova i naći koliko ima članova koji su manji od prvog člana, a koliko članova koji su veći od zadnjeg člana niza.

Listing programa:

PROGRAM P10511010;
USES
  WinCrt;
CONST
  n = 20;
VAR
  i, brmax, brmin : 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;
  brmax := 0;
  brmin := 0;
  FOR i := 2 TO n DO
    IF X[1] > X[i] THEN
       brmin := brmin + 1;
   FOR i := 1 TO n-1 DO
     IF X[n] < X[i] THEN
        brmax := brmax + 1;
  WRITELN('Broj manjih od prvog clana niza ',brmin);
  WRITELN('Broj vecih od zadnjeg clana niza ',brmax);
END.

Ispis na ekranu:

Index