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

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.
• Формируем новый массив, добавляя в него только те элементы, которые больше среднего арифметического.
• Выводим среднее арифметическое и элементы нового массива на экран.

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