8.1.. Učitati visine i težinu za n osoba. Ispisati prosječnu, najmanju i najveću visinu i težinu.

Listing programa:

REM 08115003
CLS
  PRINT "Najveci, najmanji, najteži i najlaksi kao i prosjecni od n ucitanih"
  PRINT "n ";
  INPUT n
  PRINT "Visina ";
  INPUT vis
  PRINT "Tezina ";
  INPUT tez
  maxtez = tez
  maxvis = vis
  mintez = tez
  minvis = vis
  svis = vis
  brvis = 1
  stez = tez
  brtez = 1
  FOR i = 2 TO n 
      BEGIN
      PRINT "Visina ";
      INPUT vis
      PRINT "Tezina ";
      INPUT tez
      svis = svis + vis
      brvis = brvis + 1
      stez = stez + tez
      brtez = brtez + 1
      IF tez > maxtez THEN maxtez = tez
      IF vis > maxvis THEN maxvis = vis
      IF tez < mintez THEN mintez = tez
      IF vis < minvis THEN minvis = vis
    NEXT i
    asvis = svis/brvis
    astez = stez/brtez
  PRINT "Najvisi od ", n, " ucitanih je ", maxvis
  PRINT "Najtezi od ", n, " ucitanih je ", maxtez
  PRINT "Najnizi od ", n, " ucitanih je ", minvis
  PRINT "Najlaksi od ", n, " ucitanih je ", mintez
  PRINT "Prosjecna vrijednost visine od ", n, " ucitanih je ", asvis
  PRINT "Prosjecna vrijednost tezine od ", n, " ucitanih je ", astez
END

Ispis na ekranu:

Index