8.2.. Napisati program za ispis aritmetičke sredine prirodnih brojeva do n.

Opis rješenja: Aritmetička sredina je suma elemenata podjeljena sa brojem elemenata u ovom slučaju to je: as := s/br;.

Listing programa:

PROGRAM p08213010;
USES  
  WinCrt;  
VAR                  { deklarisanje promjenljivih }
  i, n, s, br : Integer;   { cjelobrojne promjenljive }
  as: Real;                { realne promjenljive }
BEGIN
  Writeln('Artimeticka sredina 1 - n');
  Write('Do broja ');
  Readln(n); 
  s := 0;           { pocetna vrijednost sume }
  br := 0;          { pocetna vrijednost brojaca }
  
  i := 1;              { pocetna vrijednost kontrolne varijable }
  WHILE i <= n DO      { dok je i <= n ponavljaj - pocetak petlje }
    BEGIN
      s := s + i;      { suma s postaje stara vrijednost sume uvecana za vrijednost i } 
      br := br + 1;    { brojac br postaje stara vrijednost brojaca uvecana za 1 }
      i := i + 1;      { slijedeca vrijednost kontrolne varijable i }
    END;               { kraj while petlje }
	
  as := s/br;          { aritmeticka sredina je kolicnik sume i brojaca s/br }
  Writeln('Aritmeticka sredina od 1 do ', n, ' je ', as);
END.

Ispis na ekranu:

Index