10.1.. Učitati članove niza. Izračunati i ispisati proizvod pozitivnih članova niza koji su djeljivi sa 3.

Opis programa: Kreiranje kumulativnog proizvoda se izvodi u naredbom p := p * X[i];. Početana vrijednost proizvoda je jedan p := 1; . Provjera djeljivosti člana niza sa 3 se izvodi sa naradbom X[i] MOD 3 = 0.

Listing programa:

PROGRAM P10112077;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, p : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Proizvod pozitivnih djeljivih sa 3');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  p :=1; {pocetna vrijednost}
  FOR i := 1 TO n DO  {izlaz}
    IF (X[i] MOD 3 = 0) AND (X[i] > 0) THEN
      p := p * X[i];
  WRITELN('Proizvod pozitivnih djeljivih sa 3 = ' ,p);
END.

Ispis na ekranu:

Index