10.5.1. Učitati članove niza. Izračunati i ispisati broj članova niza koji su djeljivi sa 2 (paran).

Opis programa:

Listing programa:

PROGRAM P10114004;
USES
  WinCrt;
VAR
 i, br, n  : INTEGER;
 X : ARRAY [1..15] OF INTEGER;
BEGIN
  WRITELN('Broj clanova niza djeljivih sa 2');
  WRITE('Broj clanova niza ');
  READLN(n);
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  br :=0; {pocetna vrijednost brojaca}
  FOR i := 1 TO n DO  {izlaz}
    IF x[i] MOD 2 = 0 THEN
      br:=br+1;
  WRITELN('Broj clanova niza djeljivih sa 2 = ', br);
END.

Ispis na ekranu:

Index