Вывести элементы массива, которые больше среднего арифметического | Язык Паскаль

Вывести элементы массива, которые больше среднего арифметического

Дан одномерный массив. Найти среднее арифметическое его элементов. Вывести на экран только те элементы массива, которые больше найденного среднего арифметического.

Введем переменные:

Алгоритм решения задачи:

  1. Заполняем массив (например, случайными числами).
  2. Переменной sum изначально присваиваем значение 0.
  3. Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.
  4. Находим среднее арифметическое путем деления суммы на количество элементов (хранится в константе N).
  5. Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)
  6. Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.
begin
    randomize;
    for i := 1 to N do 
        a[i] := random(50)+1;

    sum := 0;
    for i := 1 to N do 
        sum := sum + a[i];

    avrg := sum/N;
    
    // весь массив
    for i := 1 to N do 
        write(a[i]:3);
    writeln;
    
    writeln('Среднее арифметическое: ', avrg:4:2);
    
    // больше avrg    
    for i := 1 to N do 
        if a[i] > avrg then 
            write(a[i]:3);
            
    writeln;
end.

Пример выполнения программы:

 34 27 47 46 15 36  3  6 39 38
Среднее арифметическое: 29.10
 34 47 46 36 39 38

Пример решения похожей задачи в сообществе VK: С клавиатуры вводится натуральное число n. За ним последовательно вводятся данные о росте n учащихся класса. Определите средний рост учащихся всего класса. Решить задачу без использования массивов.