program average;
const n=10;
var avg:real; //среднее ариф.
count:integer;//кол-во чисел, превосходящих ср. ариф
m:array[1..n] of integer; //массив из 10 целых чисел
i:byte; //счетчик цикла
begin
count:=0; avg:=0;
writeln('Введите в строку 10 чисел');
for i:=1 to n do begin
read(m[i]);//считываем в цикле 10 чисел
avg:=avg+m[i];//подсчитываем сумму элементов
end;
avg:=avg/10;//вычисляем среднее ариф. значение
//перебираем массив в цикле
for i:=1 to n do
if (m[i]>avg) then count:=count+1;//если элемент массива больше чем ср. ариф, то счетчик таких чисел увеличиваем на 1
//вывод на экран требуемого значения
writeln(count);
end.
Объяснение:
попробовал все разъяснить в комментариях к строкам кода
