10.5.1. Učitati članove niza. Izračunati i ispisati aritmetički sredinu svih članova niza.

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.

Tekstualni algoritam:

1.  broj članova niza
2.  dimenzionisati niz
3.  za i = 1 do n radi
     3.1. upis i-tog člana niza
4.  početna vrijednost sume s := 0
5.  za i = 1 do n radi
          suma postaje stara vrijednost sume uvećana za i-ti član niza
                     s := s+X[i];
          vrijednost brojača postaje stara vrijednost brojača uvećana za 1
                     br := br+1;
6. izračunatu količnik sume s i brojača - aritmetička sredina
7. ispisati izračunatu aritmetičku sredinu as

Listing programa:

PROGRAM P10115001;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, s, br : INTEGER;
 as : REAL;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Aritmeticka sredina clanova niza');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  s :=0; {pocetna vrijednost sume}
  br :=0; {pocetna vrijednost brojača}
  FOR i := 1 TO n DO  {izlaz}
    BEGIN
      s := s + X[i];
      br:=br+1;
    END;
  as := s / br;
  WRITELN('Aritmeticka sredina = ', as);
END.

Ispis na ekranu:

Index