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

Opis programa: Početne vrijednosti tekučih minimuma i maksimua su max = X[3]; min =X[3]; broj članova niza x= X[i]; Program poredi tekući minimum i maksimum sa članovima niza X sa članovima čiji je indeks djeljiv sa 3 (i MOD 3 = 0). Petlja se izvodi u intervalu od 6 do n or (FOR i := 6 TO n DO).

Listing programa:

PROGRAM P10511014;
USES
  WinCrt;
CONST
  nizmax = 100; { maksimalan broj clanova niza }
VAR
  i, tmax, tmin, n : INTEGER;
  X : ARRAY [1..nizmax] OF INTEGER;
BEGIN
  WRITELN('Najveci clan niza indeks djeljiv sa 3');
  WRITELN('Najmanji clan niza indeks djeljiv sa 3');
  WRITE('Broj clanova niza ');
  READLN(n);    { stvarni broj clanova niza }
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  tmax := X[3];
  tmin := X[3];
  FOR i := 6 TO n DO
    BEGIN
      IF (i MOD 3 = 0) AND (tmax < X[i]) THEN
        tmax := X[i];
      IF (i MOD 3 = 0) AND (tmin > X[i]) THEN
        tmin := X[i];
    END;
  WRITELN('Najveci clan niza indeks djeljiv sa 3 je: ', tmax);
  WRITELN('Najmanji clan niza indeks djeljiv sa 3 je: ', tmin);
END.

Ispis na ekranu:

Index