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.
Объяснение:
попробовал все разъяснить в комментариях к строкам кода
const n=10;
var a:array [1..n] of integer;
i,s,k:integer;
begin
write('Массив: ');
randomize;
for i:= 1 to n do
begin
a[i]:= random(90)+10;
write (a[i]:3);
s:=s+a[i]
end;
writeln;
writeln('Среднее арифметическое элементов массива равно ',s/n);
k:=0;
for i:= 1 to n do
if a[i]>s/n then k:=k+1;
writeln('Количество элементов массива превосходящих среднее арифметическое равно ',k)
end.
Объяснение:
В цикле:
1) задаём элементы массива
2) выводим их на экран
3) считаем сумму
В цикле:
по условию считаем количество элементов больших среднего арифметического
Вывод результат
var k,i,j:integer;
a:array[1..5]of integer;
begin
for i:=1 to 5 do begin
for j:=1 to 4 do begin
if a[j]>a[j+1] then begin
k:=a[j+1];
a[j+1]:=a[j];
a[j]:=k;
end;
end;
end;
end.