12.102.Učitati  dva niza A i B od po n članova. novi niz  C od n članova prema slijedećem izrazu:

     ! ai + bi,    ako je indeks paran
ci= <
     ! ai - 2,     ako je indeks neparan

Izvod iz listing programa:

PROGRAM P10811004;
CONST
  n = 3;
VAR
  i : INTEGER;
  A, B, C : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Ucitaj niz A ');

  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(A[i]);
    END;

   WRITELN('Ucitaj niz B ');

  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(B[i]);
    END;

FOR i:=1 TO n DO  
  IF i mod 2 = 0 THEN
    C[i] := A[i] + B[i]
  ELSE
    C[i] := A[i] - 2;

  FOR i := 1 TO n DO  {izlaz}
   BEGIN
    WRITE('A[',i,'] = ',A[i]);
    WRITE('  B[',i,'] = ',B[i]);
    WRITELN('  C[',i,'] = ',C[i]);
   END;
  READLN;
END.

Ispis na ekranu:

Index