8.1.. Napisati program za učitavanje 10 brojeva i ispisati aritmetičku sredinu negativnih i aritmetičku sredinu pozitivnih brojeva kao i broj nula.

Listing programa:

REM 08115008
CLS
PRINT "Od 10 brojeva ispisati aritmeticku sredinu negativnih, aritmeticku sredinu i broj nula"
br = 0
br0 = 0
br1 = 0
s = 0
s1 = 0
FOR i = 1 TO 10
  PRINT i ". broj ";
  INPUT n
  IF n < 0 THEN 
    s = s + n
    br = br + 1
  END IF
  IF n = 0 THEN br0 = br0 + 1
  IF n > 0 THEN 
    s1 = s1 + n 
	br1 = br1 + 1
  END IF
NEXT i
as = s / br
as1 = s1 / br1
PRINT "Aritmeticka sredina negativnih brojeva "; as
PRINT "Nula ima "; br0
PRINT "Aritmeticka sredina pozitivnih brojeva "; as1
END

Ispis na ekranu:

Index