10.5.. Učitati članove niza. Izračunati aritmetičku sredinu i ispisati sumu članova niza manjih od aritmetičke sredine.
Opis programa: : Sumiranje se izvodi samo kad je vrijednost člana manja od aritmetičke sredine (X[i] < as).
Listing programa:
PROGRAM P10115011;
USES
WinCrt;
CONST
n = 5;
VAR
i, s, br : INTEGER;
as : REAL;
X : ARRAY [1..n] OF INTEGER;
BEGIN
WRITELN(''Suma clanova manjih od aritmeticke sredine 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;
s := 0; {pocetna vrijednost sume}
WRITELN('Aritmeticka sredina = ', as);
FOR i := 1 TO n DO {izlaz}
IF X[i] < as THEN
s := s + X[i];
WRITELN('Suma clanova manih od as ', s);
END.
Ispis na ekranu:
Index
|