Question

Ввести целочисленный массив, состоящий из 17 элементов. Найти сумму и кол-во элементов, абсолютное значение которых больше среднеарифметического положительных элементов. Язык: Паскаль .net

Answer 1

Ответ:

PascalABC .Net

Объяснение:

begin

 WriteLn('Введите элементы массива:');

 var a := ReadArrInteger(17);

 a.PrintLn;

 WriteLn('Cуммa элементов, абсолютное значение которых больше среднеарифметического положительных элементов, равна ', a.Where(x -> abs(x) > a.Where(x -> x > 0).Average).Sum);

 WriteLn('Их количество: ', a.Where(x -> abs(x) > a.Where(x -> x > 0).Average).Count);

end.

Answer 2

Для решения данной задачи на языке Паскаль .NET, вам потребуется создать целочисленный массив из 17 элементов и выполнить несколько шагов.

Шаг 1: Создание массива

Создайте целочисленный массив, состоящий из 17 элементов. Заполните его значениями, например, случайными числами или вручную.

var
  arr: array[1..17] of Integer;

Шаг 2: Вычисление среднеарифметического положительных элементов

Пройдитесь по массиву и найдите сумму и количество положительных элементов. Затем вычислите среднеарифметическое значение положительных элементов.

var
  sumPositive: Integer;
  countPositive: Integer;
  averagePositive: Real;
  i: Integer;
  
sumPositive := 0;
countPositive := 0;

for i := 1 to 17 do
begin
  if arr[i] > 0 then
  begin
    sumPositive := sumPositive + arr[i];
    countPositive := countPositive + 1;
  end;
end;

averagePositive := sumPositive / countPositive;

Шаг 3: Поиск элементов с абсолютным значением больше среднеарифметического положительных элементов

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

var
  sumAbsolute: Integer;
  countAbsolute: Integer;
  j: Integer;
  
sumAbsolute := 0;
countAbsolute := 0;

for j := 1 to 17 do
begin
  if Abs(arr[j]) > averagePositive then
  begin
    sumAbsolute := sumAbsolute + arr[j];
    countAbsolute := countAbsolute + 1;
  end;
end;

Шаг 4: Вывод результатов

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

writeln('Сумма элементов: ', sumAbsolute);
writeln('Количество элементов: ', countAbsolute);

Теперь у вас есть полный код для решения данной задачи на языке Паскаль .NET.