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

Listing programa:

REM 08115007
CLS
PRINT "Od 10 brojeva ispisati sumu negativnih i sumu pozitivnih brojeva i broj nula"
br0 = 0
s = 0
s1 = 0
FOR i = 1 TO 10
  PRINT i ". broj ";
  INPUT n
  IF n < 0 THEN s = s + n
  IF n = 0 THEN br0 = br0 + 1
  IF n > 0 THEN s1 = s1 + n
NEXT i
PRINT "Suma negativnih brojeva "; s
PRINT "Nula ima "; br0
PRINT "Suma pozitivnih brojeva "; s1
END

Ispis na ekranu:

Index