НАПИШИТЕ ПРОГРАММУ В ПАСКАЛЕ, СРОЧНО !! написать программу, которая вычисляет среднее арифметическое ненулевых элементов массива M[1..100], элементы которого вычисляются по формуле M[i]=sin(i)*cos(i)
и прошу не используйте интернет, а напишите сами по возможности.