10.1.. Učitati članove niza. Ispisati članove niza sa parnom vrijednosti (djeljive sa 2).

Opis programa: Provjera se izvodi naredbom IF X[i] MOD 2 = 0 THEN u kojoj se izvodi provjerava paranosti naredbom X[i] MOD 2 = 0.

Listing programa

Opis

PROGRAM NIZ_CLAN_PAR;

Naslov programa

CONST

Deklarisanje

  n = 5;

Broj članova niza

VAR

Promjenljive

  i : INTEGER;

Indeks

  X : ARRAY [1..n] OF INTEGER;

Niz

BEGIN

 

  WRITELN('Paran clan niza');

Naslov

  FOR i := 1 TO n DO  {ulaz}

 

    BEGIN

 

      WRITE(i,' --> ');

Upis članova niza

      READLN(X[i]);

Ispis na ekran

    END;

 

  FOR i := 1 TO n DO  {izlaz}

Petlja

    IF X[i] MOD 2 = 0 THEN

Provjera parnosti člana

      WRITELN('X[',i,']= ',X[i]);

Ispis

END.

Kraj programa

Listing programa:

PROGRAM P10111006;
USES
  WinCrt;
CONST
  n = 5;
VAR
  i : INTEGER;
  X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Paran clan niza');
  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 2 = 0 THEN
      WRITELN('X[',i,']= ',X[i]);
END.

Ispis na ekranu:

Index