1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 | INPUT nDIM a$(n)FOR i=1 TO nINPUT a$(i)NEXTmax$=a$(1)FOR i=1 TO nIF LEN(a$(i))=LEN(max$) THEN max$=a$(i)NEXTFOR i=1 TO nIF MID$(a$(i),1,1)="A" THEN a$(i)=max$NEXTFOR i=1 TO nPRINT a$(i)NEXT |