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

и прошу не используйте интернет, а напишите сами по возможности. 

как называют рисунки в тексте книги, журнала

 На острове веселия 4 селения, в каждом из них проживают 90 островитян. Третья часть всех жителей острова вышло в море ловить рыбу, половина оставшийся отправились охотиться на соседний остров.Сколька островитян осталось дома?