10.1.. Učitati članove niza. Ispisati članove niza koji nisu djeljive sa 3.

Opis programa: Provjera se izvodi naredbom IF X[i] MOD 3 <> 0 THEN u kojoj se izvodi provjerava djeljivosti se izvodi naredbom X[i] MOD 3 <> 0 (3 znači dijeljenje sa 3, različiti od nule znači nije djeljiv sa 3).

Listing programa:

PROGRAM P10111008;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i : INTEGER;
  X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Nisu djeljive sa 3');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  FOR i := 1 TO n DO  {izlaz}
    IF X[i] MOD 3 <> 0 THEN
      WRITELN('X[',i,']= ',X[i]);
END.

Ispis na ekranu:

Index