Помогите решить задачу в Паскаль
 

1)Дан вектор найти среднеарефметическое его положительных элементов и всех элементов превышающих это значение заменить нулями.
2)Дан вектор вычеслить сумму элементов расположенных между максимальным и минимальным элементом.

Заранее огромное спасибо)))

Сами пробовали решать?