1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT nDIM a$(n)FOR i = 1 TO n INPUT a$(i)NEXTmax$ = a$(1)FOR i = 1 TO n IF LEN(a$(i)) = LEN(max$) THEN max$ = a$(i)NEXTFOR i = 1 TO n IF MID$(a$(i), 1, 1) = "A" THEN a$(i) = max$NEXTFOR i = 1 TO n PRINT a$(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )