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

Listing programa:

REM 08113010
REM
CLS
INPUT "Aritmeticka sredina od 1 do"; n
s = 0
br = 0
FOR i = 1 TO n
  s = s + i
  br = br + 1
NEXT i
a = s / br
PRINT "Aritmeticka sredina od 1 do"; n; "je"; a
END

Ispis na ekranu:

Index