Найдите среднее арифметическое элементов заданного массива - Turbo Pascal

Формулировка задачи:

найдите среднее арифметическое элементов заданного массива из 8 целых чисел и определите сколько элементов данного массива больше среднего

Решение задачи: «Найдите среднее арифметическое элементов заданного массива»

Листинг программы

const
    N = 8;
var
    ar: Array[1..N] Of ShortInt;
    i, count: 0..N;
    avr: Real;
begin
    Randomize;
    avr := 0;
    Write('Original vector:');
    for i := 1 to N do
    begin
        ar[i] := Random(199) - 99;
        Write(ar[i]:4);
        avr := avr + ar[i];
    end;
    avr := avr / N;
    WriteLn; WriteLn('AVR=', avr:0:2);
    count := 0;
    for i := 1 to N do
        if (ar[i] > avr)
        then
            Inc(count);
    WriteLn('Count: ', count);
end.

Объяснение кода листинга программы

В данном коде объявлены следующие переменные:

N - количество элементов в массиве (в данном случае равно 8);
ar - массив для хранения чисел;
i - счётчик для цикла;
count - счётчик для подсчёта числа чисел, больших среднего значения;
avr - переменная для хранения среднего значения. В начале кода генератор случайных чиселRandomize; задаётся начальное значение для переменной avr, которое будет являться средним значением. Затем выводится исходный массив чисел. Далее идёт цикл for, который выполняется N раз (N - количество элементов в массиве). В каждой итерации этого цикла генерируется случайное число, вычисляется его среднее арифметическое со значением ar[i] и добавляется к переменной avr. После окончания каждой итерации значение avr обновляется, а также увеличивается счётчик count на единицу, если значение ar[i] больше текущего значения avr. После завершения цикла выводится значение переменной avr, которое является средним значением, и значение счётчика count.