1 2 3 4 5 6 7 8 9 | INPUT "vvedite kol-vo slov ", nDIM a$(n)FOR i = 1 TO n INPUT "vvedite slovo ", a$(i)NEXTFOR i = 1 TO n IF RIGHT$(a$(i), 1) = "я" THEN PRINT a$(i)NEXT |
Тестирование выполнено в программе QB64 ( Скачать )