8.3.. 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 p08315008;
CSL
PRINT "Unesite 10 brojeva:"
i=1
s1=0
s2=0
br1=0
br2=0
br3=0
DO
     PRINT i;".broj"
     INPUT n
        IF n > 0 THEN
          s1=s1+n
          br1=br1+1
        ELSEIF n < 0 THEN
          s2=s2+n
          br2=br2+1
        ELSE 
          br3=br3+1
        END IF   
  i=i+1      
LOOP UNTIL I > 10
AR1=s1/br1
AR2=s2/br2
PRINT "ARITMETICKA SREDINA POZITIVNIH  ";AR1
PRINT "ARITMETICKA SREDINA NEGATVNIH ";AR2
PRINT "NULA  ";br3
END

Ispis na ekranu:

Index