Найти количество элементов массива, больших среднего арифметического - Pascal ABC

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

Составить программы, находящую в данном массиве: количество элементов, больших среднего арифметического всех его элементов.

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

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

// Найти в массиве количество элементов, больших среднего арифметического всех его элементов.
const n=1000; 
var a:array[1..n] of integer;
    k,l,m:integer;
    i:integer;
begin
writeln('Введите количество элементов массива: ');
readln(m);
writeln('Введите массив: ');
for i:=1 to m do readln(a[i]);
for i:=1 to m do 
begin
  k:=k+a[i];
  k:=k div m;
end;
for i:=1 to m do
  if a[i]>k then inc(l);
writeln('Количество элементов, больших среднего арифметического всех его элементов: ',' ',l);
end.

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

Объявляются переменные: — n - размер массива (1000); — a - массив (1000 элементов); — k - количество элементов, которые больше среднего; — l - количество элементов, которые меньше или равны среднему; — m - количество элементов в массиве.
Запросить у пользователя размер массива и заполнить его значениями.
Найти среднее арифметическое элементов массива, используя переменную k.
Пройти по всем элементам массива и сравнить их со средним значением. Если элемент больше среднего, увеличить значение переменной k.
Вывести на экран количество элементов, больших среднего арифметического всех его элементов.