Code:
DIM NAME$(14) FOR COUNT% = 1 TO 14 READ NAME$(COUNT%) NEXT COUNT%
Code:
L% = 1 S% = 1 FOR COUNT% = 2 TO 14 IF LEN(NAME$(COUNT%)) > LEN(NAME$(L%)) THEN L% = COUNT% IF LEN(NAME$(COUNT%)) < LEN(NAME$(S%)) THEN S% = COUNT% NEXT COUNT%
Code:
PRINT "The longest name is ";NAME$(L%) PRINT "The shortest name is ";NAME$(S%)
Code:
DATA Chris Boss, Mike Doty, Lance Edmonds, Tom Hanlin DATA E B Knoppert, Mike Luther, Michael Mattias, Dave Navarro DATA Eric Pearson, Patrice Terrier, Scott Turchin, Greg Turgeon DATA Bob Zale, Egbert Zijlema

[This message has been edited by G Grant (edited April 22, 2000).]
Leave a comment: