8.2.. Napisati program za učitavanje 10 brojeva i ispisati sumu negativnih i sumu pozitivnih brojevanula kao i broj nula.

Listing programa:

REM p08215007;
CSL
PRINT "Unesite 10 brojeva:"
i=1
s1=0
s2=0
br=0
WHILE i <= 10
     PRINT i;".broj"
     INPUT n
        IF n > 0 THEN
          s1=s1+n
        ELSEIF n < 0 THEN
          s2=s2+n
        ELSE 
          br=br+1
        END IF
  i=i+1      
WEND
PRINT "SUMA POZITIVNIH  ";s2
PRINT "SUMA NEGATVNIH ";s3
PRINT "NULA  ";br3
END

Ispis na ekranu:

Index