12.122. Učitati niz X od n članova. Naći minimum i  maksimum  od članova sa neparnim indeksima.

Opis programa: Početne vrijednosti tekučih minimuma i maksimua su tmin := X[1]; tmax := X[1]; Program poredi tekući minimum i maksimum sa članovima niza A sa neparnim indeksom i MOD 2 = 1. Petlja se izvodi u intervalu od 3 do n (FOR i := 3 TO n DO).

Listing programa:

PROGRAM P10511013;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i, tmin, tmax : 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;
  tmin := X[1];
  tmax := X[1];
  FOR i := 3 TO n DO
    BEGIN
      IF (tmin > X[i]) AND (i MOD 2 = 1) THEN
        tmin := X[i];
      IF (tmax < X[i]) AND (i MOD 2 = 1) THEN
        tmax := X[i];
    END;
  WRITELN('Najmanji clan niza s neparnim indeksima ', tmin);
  WRITELN('Najveci clan niza s neparnim indeksima ', tmax);
END.

Ispis na ekranu:

Index