Question

Дан массив X(n). ВВести с клавиатуры количество элементов -n, а также сами элементы массива. Вычислить : среднюю величину отрицательных элементов

Answer 1

Відповідь:

Пример метода на C#

Пояснення:

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

 public static double AverageNegative(int[] a){

  double res = 0;

  int num = 0;

  for (int i = 0; i < a.Length; i++){

   if (a[i]<0) {

    res += a[i];

    num++;

   }

  }

  return (res/num);

 }

Answer 2

Я попробую ответить на ваш вопрос. Дан массив X(n). Ввести с клавиатуры количество элементов -n, а также сами элементы массива. Вычислить: среднюю величину отрицательных элементов.

Для решения этой задачи можно использовать язык программирования Turbo Pascal. Сначала нужно объявить переменные и массив, а затем ввести с клавиатуры n и элементы массива. Для вычисления средней величины отрицательных элементов нужно пройти по всему массиву и найти сумму и количество отрицательных элементов, а затем поделить сумму на количество. В конце нужно вывести результат на экран. Пример кода:

program average_negative;
var
  n, i, count: integer;
  sum, avg: real;
  x: array [1..100] of integer;
begin
  writeln('Введите количество элементов массива:');
  readln(n);
  writeln('Введите элементы массива:');
  for i := 1 to n do
    readln(x[i]);
  sum := 0;
  count := 0;
  for i := 1 to n do
    if x[i] < 0 then
    begin
      sum := sum + x[i];
      count := count + 1;
    end;
  if count > 0 then
    avg := sum / count
  else
    avg := 0;
  writeln('Средняя величина отрицательных элементов:', avg:0:2);
end.

Вы можете найти больше информации о Turbo Pascal и решении подобных задач на этих сайтах: [Найти произведение максимальных элементов массивов X(n), Y(n ...](https://www.cyberforum.ru/post14411219.html) и [Дан массив А из n элементов .Вывести элементы - Turbo Pascal - Ответ ...](https://www.cyberforum.ru/post4824000.html). Надеюсь, это поможет вам.