СКОЛЬКО:а)часов в 1/6 суток; б)суток в 1/5 невисокосного года; в)месяцев в 1/4 года; г)секунд в 1/12 минуты; д)минут в четверти часа?

Помогите пожалуйста! Дан одномерный массив с действительными числами. Найти количество отрицательных элементов. Нужно написать программу в Delphi, Pascal