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
|
|