10.5.6. Učitati članove niza. Izračunati aritmetičku sredinu i ispisati sumu članova niza manjih od aritmetičke sredine sa neparnim indeksom.

Opis programa: Izdvajanje se izvodi samo kad je vrijednost člana niza manja od aritmetičke sredine (X[i] < as) i neparan (i MOD 2 = 1).

Listing programa:

PROGRAM P10115017;
USES
  WinCrt;
CONST
  n = 5;
VAR
 i, s, br : INTEGER;
 as : REAL;
 X : ARRAY [1..n] OF INTEGER;
BEGIN
  WRITELN('Suma clanova manjih od as i neparan indeks');
  FOR i := 1 TO n DO  {ulaz}
    BEGIN
      WRITE(i,' --> ');
      READLN(X[i]);
    END;
  s :=0; {pocetna vrijednost sume}
  br :=0; {pocetna vrijednost brojac(a}
  FOR i := 1 TO n DO  {izlaz}
    BEGIN
      s := s + X[i];
      br:=br+1;
    END;
  as := s / br;
  s := 0; {pocetna vrijednost sume}
  WRITELN('Aritmeticka sredina = ', as);
  FOR i := 1 TO n DO  {izlaz}
    IF (X[i] < as) AND (i MOD 2 = 1) THEN 
        s := s + X[i];
  as := s / br;
  WRITELN('Suma clanova manjih od as i neparan indeks = ', s);
END.

Ispis na ekranu:

Index