12.103.Za niz Z od n članova postaviti početne vrijednosti:

     ! 1   paran
zi= <
     ! 0   neparan

Opis programa: FOR petlja sadrži provjeru parnosti i MOD 2 = 0 i na osnovu istinitosti logičkog izraza se izvodi pridruživanje.

Listing programa:

PROGRAM P10811007;
CONST
  n = 5;
VAR
  i : INTEGER;
  A : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Pocetne vrijednosti');
  FOR i:=1 TO n DO   
    IF i MOD 2 = 0 THEN 
      A[i] := 1
    ELSE
      A[i] := 0;
  FOR i := 1 TO n DO  {izlaz}
    WRITELN('A[',i,'] = ',A[i]);
  READLN;
END.

Index