Question

Найти средне арифметическое элементов массива, превосходящих некоторое число С.

Answer 1

var c,i,z:integer;

   mass,a:array[1..20] of integer;

   q:real;

begin

 writeln('Элементы массива:');

 for i:=1 to 20 do

 begin

   mass[i]:=random(11);

   write(mass[i],' ');

 end;

 writeln;

 write('c=');

 readln(c);

 write('Числа превосходящие с:  ');

 for i:=1 to 20 do  

 if (mass[i]>c) then

 begin

   inc(z);

   a[z]:=mass[i];

   write(mass[i],' ');

  end;  

 for i:=1 to z do

 begin

   q:=q+a[i];

 end;

 writeln;

 write('Среднее арифметическое этих чисел=',q/z);

end.

Answer 2

Конечно! Чтобы найти среднее арифметическое элементов массива, превосходящих некоторое число C, следуйте этим шагам:

1. Создайте пустую переменную для хранения суммы элементов, превосходящих C.
2. Создайте переменную-счетчик для подсчета количества элементов, превосходящих C. Изначально установите ее значение равным 0.
3. Проходите по каждому элементу массива.
4. Если элемент массива больше C, добавьте его к сумме (первой переменной) и увеличьте значение счетчика на 1.
5. По завершении прохода по всем элементам массива проверьте значение счетчика.
   • Если счетчик равен 0, значит, нет элементов, превосходящих C. В этом случае среднее арифметическое будет равно 0.
   • Если счетчик больше 0, найдите среднее арифметическое, разделив сумму элементов на количество элементов.
6. Верните найденное среднее арифметическое.

Вот пример кода на языке Python, реализующий этот алгоритм:

pythonCopy code
def average_above(arr, C):
    total = 0
    count = 0

    for num in arr:
        if num > C:
            total += num
            count += 1

    if count == 0:
        return 0

    average = total / count
    return average

Вы можете вызвать эту функцию, передав массив и значение C в качестве аргументов. Она вернет среднее арифметическое элементов, превосходящих C.