14.6.. Aritmetička sredina trocifrenih brojeva.

Opis rješenja: Početna vrijednost sume je s:=0; a brojča br:=0. Kumulativna suma se izračunava sa s :=s + i; a kumulativni brojač se izračunava sa br := br + 1;. Aritmetička sredina se izračunava na kraju kao as := s/br;

Listing programa:

PROGRAM p14615001;
USES
  WinCrt;
VAR
  i, br : INTEGER;
  s, as : Real;
BEGIN
  WRITELN('Aritmeticka sredina trocifrenih brojeva');
  br:=0;
  s:=0;
  FOR i := 100 TO 999 DO
    BEGIN
      s :=s + i;
      br := br + 1;
    END;
  as := s/br;
  WRITELN('Aritmeticka sredina ', as);
END.

Izvođenje programa:

Index