Učitati članove niza. Ispisati: susjedne članove niza čija je suma parna.

Opis programa: Provjera se izvodi naredbom IF (X[i] + X[i+1]) MOD 2 = 0 THEN u kojoj se izvodi sabiranje dva susjedna člana niza X[i] + X[i+1] sa naredbom MOD 2 = 0 se provjerava paranost sume.

Listing programa:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
PROGRAM P10111005;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Parni indeks');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 1 TO n-1 DO  {izlaz}
    IF (X[i] + X[i+1]) MOD 2 = 0 THEN
      WRITELN('X[',i,']= ',X[i], ' X[',i+1,']= ',X[i+1], ' suma= ',X[i] + X[i+1]);
END.

Ispis na ekranu:

Index