DIM a$(12)
FOR i=1 TO 12
INPUT "vvedite familiyu ",a$(i)
NEXT
min$=a$(1)
max$=a$(1)
PRINT "ishodnyj massiv"
FOR i=1 TO 12
PRINT a$(i)
NEXT
 
FOR i=1 TO 12
IF LEN(a$(i))>len(max$) THEN max$=a$(i)
IF LEN(a$(i))<len(min$) THEN min$=a$(i)
NEXT
PRINT"samaya dlinnaya=";max$
PRINT"samaya korotkaya="min$