Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения - Free Pascal

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

Для динамического массива подсчитать количество его элементов, больших среднего арифметического значения всех его элементов.

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

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

var a:array of integer;
n,i,sum,count:integer;
arifm:real;
BEGIN
sum:=0;
Readln (n);
SetLength (a, n);
For i:=0 to n-1 do a[i]:=Random (100);
For i:=0 to n-1 do sum:=sum+a[i];
arifm:=sum / n;
count:=0;
For i:=0 to n-1 do
IF a[i]>arifm THEN count:=count+1;
Writeln (count);
END.

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

Объявляются переменные:
- a:array of integer (динамический массив целых чисел);
- n, i, sum, count:integer (переменные для подсчета количества элементов);
- arifm:real (переменная для хранения среднего арифметического значения).
Инициализируется переменная sum со значением 0.
Считывается количество элементов массива в переменную n с помощью функции Readln.
Устанавливается длина массива a с помощью функции SetLength равной количеству элементов n.
Заполняется массив a случайными целыми числами от 0 до 100 с помощью цикла For и функции Random.
Суммируются все элементы массива и сохраняется результат в переменную sum.
Вычисляется среднее арифметическое значение путем деления суммы на количество элементов и сохраняется результат в переменную arifm.
Инициализируется переменная count со значением 0 для подсчета количества элементов, больших среднего арифметического значения.
Цикл For проходит по всем элементам массива и если значение элемента больше arifm, то к переменной count прибавляется единица.
Выводится значение переменной count с помощью функции Writeln.