8.2.. Učitati visine za n osoba. Ispisati prosječnu i najveću visinu.

Listing programa:

REM 08215002
CLS
INPUT "Koliko brojeva zelite koristiti:", n
INPUT "Unesi 1 visinu ", a
max = a
s=a
i = 2
br = 1
WHILE I <= n
    PRINT "Unesi"; i;
    INPUT "visinu ", a
    s = s + a
    br = br + 1
    IF a > max THEN max = a
    i = i + 1
WEND
ar = s / br
PRINT "Najveca visina je: "; max
PRINT "Prosjek visina je: "; ar
END

Ispis na ekranu:

Index