ISPISUJE NAJMANJE I NAJVEĆE IME U DATOTECI

 

' Pronalazi i ispisuje najvece i najmanje ime u datoteci
'

CLS

DIM rbr(10), ime$(10)

OPEN "podaci.txt" FOR INPUT AS #1
INPUT #1, do$
FOR i = 1 TO VAL(do$)
    INPUT #1, a$, b$
    rbr(i) = VAL(a$)
    ime$(i) = b$
NEXT i
CLOSE #1
FOR i = 1 TO VAL(do$)
      manje$ = ime$(1)
      vece$ = ime$(1)
      IF LEN(ime$(i)) < LEN(manje$) THEN manje$ = ime$(i)
      IF LEN(ime$(i)) > LEN(vece$) THEN vece$ = ime$(i)
NEXT i

PRINT "Najmanje ime", manje$
PRINT "Najvece ime", vece$