8.3.. 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 p08313010;
USES  
  WinCrt;  
VAR
  i, n, s, br: Integer;
  as: Real;
BEGIN
  Writeln('Artimeticka sredina 1 - n');
  Write('Do broja ');
  Readln(n);
  s := 0;
  br := 0;
  i:=1; 
  REPEAT 
    s := s + i;
    br := br + 1;;
    i := i + 1;
  UNTIL i > n;
  as := s/br;
  Writeln('Aritmeticka sredina od 1 do ', n, ' je ', as);
END.

Ispis na ekranu:

Index