В программе на Турбо Паскале с клавиатуры ввести вещественный массив A из  10 чисел и число x. Заменить все элементы, меньшие x, на среднее арифметическое элементов массива