10.5.1. Učitati članove niza. Izračunati i ispisati broj članova niza čiji je indeks djeljiv sa 3.

Opis programa: Kreiranje kumulativne sume se izvodi u naredbi s := s + X[i];. Prebrojati članove niza korištenjem brojača (br:=br+1). Brojanje se izvodi kao priprema za nardne zadatke. Početana vrijednost sume i brojača je nula s := 0; br:=0.

Listing programa:

PROGRAM P10114005;
USES
  WinCrt;
CONST
  n = 7;
VAR
 i, br : INTEGER;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Broj clanova ciji je indeks djeljiv sa 3');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  br :=0; {pocetna vrijednost brojača}
  FOR i := 1 TO n DO  {izlaz}
    IF i MOD 3 = 0 THEN 
      br:=br+1;
  WRITELN('Broj clanova ciji je indeks djeljiv sa 3 = ', br);
END.

Ispis na ekranu:

Index