1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 | INPUT"vvedite kol-vo slov ",n DIM a$(n) FOR i= 1 TO n INPUT "vvedite slovo ",a$(i) NEXT min= 1 max= 1 PRINT "ishodnyj massiv" FOR i= 1 TO n PRINT a$(i);" "; NEXT PRINT FOR i= 1 TO n IF LEN(a$(i))>len(a$(max)) THEN max=i IF LEN(a$(i))<len(a$(min)) THEN min=i NEXT SWAP a$(max),a$(min) PRINT "novyj massiv" FOR i= 1 TO n PRINT a$(i);" "; NEXT |