1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 | 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$ |
Тестирование выполнено в программе QB64 ( Скачать )