Question

Среднее арифметическое положительных значений элементов одномерного массива ( Паскаль)

Answer 1

Для нахождения среднего арифметического положительных значений элементов одномерного массива в Паскале, можно использовать следующий алгоритм:

   Объявить переменные sum и count, присвоив им значение 0.

   Пройти по всем элементам массива.

   Если текущий элемент больше 0, добавить его значение к переменной sum и увеличить переменную count на 1.

   Если переменная count равна 0, то в массиве нет положительных элементов, вернуть 0.

   Если переменная count больше 0, то среднее арифметическое равно sum/count. Вернуть это значение.

Пример кода на Паскале:

function AveragePositive(arr: array of Integer): Real;

var

 sum: Integer;

 count: Integer;

 i: Integer;

begin

 sum := 0;

 count := 0;

 for i := 0 to Length(arr) - 1 do

 begin

   if arr[i] > 0 then

   begin

     sum := sum + arr[i];

     count := count + 1;

   end;

 end;

 if count = 0 then

   Result := 0

 else

   Result := sum / count;

end;