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
|