1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | DIM a$(12)FOR i=1 TO 12INPUT "vvedite familiyu ",a$(i)NEXTmin$=a$(1)max$=a$(1)PRINT "ishodnyj massiv"FOR i=1 TO 12PRINT a$(i)NEXT FOR i=1 TO 12IF LEN(a$(i))>len(max$) THEN max$=a$(i)IF LEN(a$(i))<len(min$) THEN min$=a$(i)NEXTPRINT"samaya dlinnaya=";max$PRINT"samaya korotkaya="min$ |