8.3.. Napisati program za učitavanje 10 brojeva i ispisati sumu negativnih i sumu pozitivnih brojevanula kao i broj nula.
Listing programa:
REM p08315007;
CSL
PRINT "Unesite 10 brojeva:"
i=1
s1=0
s2=0
br=0
DO
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
LOOP UNTIL I > 10
PRINT "SUMA POZITIVNIH ";s2
PRINT "SUMA NEGATVNIH ";s3
PRINT "NULA ";br3
END
Ispis na ekranu:
Index
|