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

Listing programa:

REM 08315006
CLS
i = 1
DO
    PRINT "Unesi"; i;
    INPUT "broj:", k
    IF k < 0 THEN
        neg = neg + 1
    END IF
    IF k > 0 THEN
        poz = poz + 1
    END IF
    IF k = 0 THEN
        nul = nul + 1
    END IF
    i = i + 1
LOOP UNTIL i = 11
PRINT "Negativnih je:", neg;
PRINT "brojeva."
PRINT "Pozitivnih je:", poz;
PRINT "brojeva."
PRINT "Nula ima:", nul
END

Ispis na ekranu:

Index