8.1.. 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 p08113010;
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 }

  FOR i := 1 TO n DO   { ponavljaj za i=1 do n - pocetak for 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 }
    END;               { kraj for 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