Составить программы на языке паскаль.

[Stebaslo]

Сдравствуйте, помогите пожалуйста с програмками:

1) Вычислить функцию у=cos x для х, изменяющегося на отрезке (-12,16) с шагом 2,05. Сколько раз значение было равно нулю?


2) В массиве А, состоящем из 10 элементов, есть хотя бы один отрицательный элемент. Вычислть произведение элементов массива до первого отрицательного.

3) На картинке DSC00024.jpg

Рябят! Буду век благодарен вам если поможете! Ах да! Чуть не забыл к программам нужны схемы... по возможности со схемами помогите!)))