ну а что именно не получается? Подобный пример рекурсивной функции есть в задачнике: http://pascal-for-all.ucoz.ru/publ/6-1-0-41 Задача с массивом тоже не сложнее, поэтому пробуйте сами решать, а на форум давайте конкретные вопросы или попытки решения. Скажем дружно- нафиг нужно!