Помогите с программированием, пожалуйста. Pascal
1. Массив А (одномерный) задан случайным образом. Найти сумму его элементов с четными номерами, произведение отрицательных элементов, количество нечетных элементов.
2. Дан одномерный массив, значения элементов которого вводятся с клавиатуры. Отрицательные элементы данного массива заменить их модулями, нулевые остаются неизменными, а положительные - их квадратами. На экран вывести исходный массив и полученный результат.
3. Дан массив. Поменять местами первый элемент массива и максимальный. Вывести оба массива.