Задача на Pascal(абс) Опции

[Engl]

1)Вычислить массв R[1:n]
в соот. с формулой
r[i]=2cos(3ax-ih)
i=1,n
x,h,a-заданы
2)из вычисленного массива R удалить все отрицательные элементы,расположенные до минимального
3)в полученном массиве R[1:k],где k-число эл-ов,оставшееся после удаление,подсчитать:
среднее арифметическое эл-ов,расположенных между первым и последним положительными элементами

Хелп,напишите плз,буду очень признателен