8.1.. Napisati program za učitavanje 10 brojeva i ispis koliko je učitano negativnih, nula i pozitivnih brojeva.

Listing programa:

REM 08115006
CLS
PRINT "Od 10 brojeva koliko je negativnih, nula i pozitivnih brojeva"
br = 0
br0 = 0
br1 = 0
FOR i = 1 TO 10
  PRINT i ". broj ";
  INPUT n
  IF n < 0 THEN br = br + 1
  IF n = 0 THEN br0 = br0 + 1
  IF n > 0 THEN br1 = br1 + 1
NEXT i
PRINT "Negativnih brojeva ima "; br
PRINT "Nula ima "; br0
PRINT "Pozitivnih brojeva ima "; br1
END

Ispis na ekranu:

Index