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

Tekstualni algoritam:

1. učitati do kog broja se izvodi računanje (n)
2. učitati prvu vrijednost visine
3. max = a
4. početna vrijednost sume prva vrijednost(s=a)
5. početna vrijednost  brojača (br =1)
6. za i = 2 do n radi
   učitati vrijednost visine
   s = s + a
   uvećati brojač (br=br+1)
   ako je nova visina veća od tekućeg maksimuma to je novi maksimum
7. izračunati količnik sume i brojača (as=s/br)
8. ispisati izračunatu vrijednosti aritmetičke sredine (as)
9. ispisati najveću visinu

Listing programa:

REM 08115002
CLS
PRINT "Broj visina ";
INPUT n
PRINT "1. visina ";
INPUT  x
max = x
s = x
br = 1
FOR i = 2 TO n
  PRINT i ". visina ";
  INPUT x
  s = s + x
  br = br + 1
  IF x > max THEN max = x
NEXT i
sr = s / br
PRINT "Srednja vrijednost je"; sr
PRINT "Najveca visina je"; max
END

Ispis na ekranu:

Index