Решите, пожалуйста, задачу с использованием Паскаля:

Сформировать массив случайным образом (длина массива 20). Нужно найти среднее арифметическое элементов этого массива. Затем создать новый массив, который будет состоять из элементов первого массива, превышающих среднее арифметическое.

Информатика 11 класс Массивы и работа с ними в Паскале Паскаль массив случайных чисел среднее арифметическое программирование задача по информатике новый массив элементы массива алгоритм решение задачи информатика 11 класс Новый

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

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

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