12.121. Učitati niz X od n članova. Naći maksimum od članova sa parnim indeksima.

Opis programa: Program poredi one članove niza A sa parnim indeksom i MOD 2 = 0 i samo njih poredi sa trenutnim maksimumom.

tmax := X[2];
FOR i := 4 TO n DO
  IF (tmax < X[i]) AND (i MOD 2 = 0) THEN
    tmax := X[i];
WRITELN('Najveci clan niza s parnim indeksima ',tmax);

Listing programa:

PROGRAM P10511011;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i, 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;
  tmax := X[2];
  FOR i := 4 TO n DO
    IF (tmax < X[i]) AND (i MOD 2 = 0) THEN
      tmax := X[i];
  WRITELN('Najveci clan niza s parnim indeksima ',tmax);
END.

Ispis na ekranu:

Index