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:
![](../../pascal/pascal_prir/081/081_izvedi/08115008.gif)
Index
|