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

Listing programa:

REM 08215003
CLS
INPUT "Koliko brojeva zelite koristiti:", n
INPUT "Unesi 1 visinu ", a
max = a
min = 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
    IF a < min THEN min = a
    i = i + 1
WEND
ar = s / br

INPUT "Unesi 1 tezinu ", b
i2 = 2
br2 = 1
max2 = b
min2=b
s2 = b
WHILE i2 <= n
    PRINT "Unesi"; i2;
    INPUT "tezinu ", b
    s = s + b
    br = br + 1
    IF b > max2 THEN max2 = b
    IF b < min2 THEN min2 = b
    i2 = i2 + 1
WEND
ar2 = s2 / br2

PRINT "Najveca visina je: "; max
PRINT "Najmanja visina je: "; min
PRINT "Prosjek visina je: "; ar
PRINT "Najveca tezina je: "; max2
PRINT "Najmanja tezina je: "; min2
PRINT "Prosjek tezina je: "; ar2
END

Ispis na ekranu:

Index