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
|