Для решения данной задачи на языке Паскаль, мы будем следовать следующим шагам:

1. Объявление переменных: Нам понадобятся переменные для хранения массива, его длины, суммы элементов, среднего арифметического и нового массива.
2. Инициализация массива: Мы создадим массив длиной 20 элементов и заполним его случайными числами.
3. Подсчет суммы элементов: Пройдемся по всем элементам массива, чтобы вычислить их сумму.
4. Вычисление среднего арифметического: Разделим сумму на количество элементов (20).
5. Создание нового массива: Пройдемся по первому массиву и добавим в новый массив только те элементы, которые превышают среднее арифметическое.
6. Вывод результатов: Выведем на экран среднее арифметическое и элементы нового массива.

Теперь давайте рассмотрим код, который реализует эти шаги:

program AverageAndFilter;

uses crt;

const
    N = 20; // Длина массива

var
    arr: array[1..N] of Integer; // Исходный массив
    newArr: array[1..N] of Integer; // Новый массив
    sum, avg: Real; // Сумма и среднее арифметическое
    i, newSize: Integer; // Индексы и размер нового массива

begin
    Randomize; // Инициализация генератора случайных чисел
    sum := 0; // Обнуляем сумму
    newSize := 0; // Обнуляем размер нового массива

    // Заполнение массива случайными числами
    for i := 1 to N do
    begin
        arr[i] := Random(100); // Заполняем случайными числами от 0 до 99
        sum := sum + arr[i]; // Считаем сумму
    end;

    // Вычисление среднего арифметического
    avg := sum / N;

    // Создание нового массива с элементами, превышающими среднее арифметическое
    for i := 1 to N do
    begin
        if arr[i] > avg then
        begin
            newSize := newSize + 1; // Увеличиваем размер нового массива
            newArr[newSize] := arr[i]; // Добавляем элемент в новый массив
        end;
    end;

    // Вывод результатов
    WriteLn('Среднее арифметическое: ', avg:0:2);
    Write('Элементы нового массива: ');
    for i := 1 to newSize do
    begin
        Write(newArr[i], ' '); // Выводим элементы нового массива
    end;

    ReadLn; // Ожидаем нажатия клавиши
end.

В этом коде мы:

• Инициализируем массив случайными числами от 0 до 99.
• Считаем сумму всех элементов массива.
• Вычисляем среднее арифметическое, деля сумму на 20.
• Формируем новый массив, добавляя в него только те элементы, которые больше среднего арифметического.
• Выводим среднее арифметическое и элементы нового массива на экран.

Таким образом, мы успешно решили задачу с использованием языка Паскаль!