Написать программы в Pascal ABC
1)найдите количество элементов в массиве w(18), больших среднего арифметического всех его элементов.
2)найдите, сколько раз встречается в одномерном массиве т(20) максимальное по величине число. 3)найти сумму нечетных отрицательных элементов массива d(10).