Дан одномерный массив. Составить программу, находящую количество элементов, которые превышают среднее значение массива - Pascal ABC

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

Массив заполнить случайными числами на отрезке [a,b]. На экран вывести исходный массив, среднее значение и количество с поясняющим текстом.

program OKR;
uses crt;
type mas=array [1..20] of real;
var m:mas;
    sr,sum:real;
    kol,i,a,n,b:integer;
begin
     clrscr;
     write ('Введите отрезок (а b): ');
     readln (a,b);
write ('Введите кол-во эл-тов: ');
     readln (n);
     randomize;
     for i:=1 to n do
     begin
         m[i]:=(b-a)*random+a;
         write ('m[',i,']=',m[i]:3:1,' ');
     end;
readln;
end.

Как продолжить?

Решение задачи: «Дан одномерный массив. Составить программу, находящую количество элементов, которые превышают среднее значение массива»

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

program OKR;
 
uses crt;
 
type
  mas = array [1..20] of real;
 
var
  m: mas;
  sr, sum: real;
  kol, i, a, n, b: integer;
 
begin
  clrscr;
  sum := 0;
  sr := 0;
  kol := 0;
  write('Введите отрезок (а b): ');
  readln(a, b);
  write('Введите кол-во эл-тов: ');
  readln(n);
  randomize;
  for i := 1 to n do
  begin
    m[i] := (b - a) * random + a;
    write('m[', i, ']=', m[i]:3:1, ' ');
    sum := sum + m[i];
  end;
  sr := sum / n;
  writeln;
  writeln('Среднее: ', sr:3:1);
  for i := 1 to n do
    if m[i] > sr then
      kol := kol + 1;
  writeln('Количество элементов, которые превышают среднее значение массива: ', kol);      
  readln;
end.

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

Объявление переменных: — m (массив типа mas) — sum (сумма элементов массива) — sr (среднее значение массива) — kol (количество элементов, которые превышают среднее значение массива) — i (счетчик цикла) — a, b (диапазон для случайной генерации чисел) — n (количество элементов в массиве)
Запрос на ввод диапазона и количества элементов
Цикл для заполнения массива случайными числами в заданном диапазоне
Вывод на экран заполненного массива
Расчет среднего значения массива
Цикл для подсчета количества элементов, которые превышают среднее значение массива
Вывод на экран количества элементов, которые превышают среднее значение массива