Question

ПОМОГИТЕ ПОЖАЛУЙСТА СРОЧНО!!!! Написать программу в Pascal: В одномерном МАССИВЕ введённом с клавиатуры определить сколько элементов имеет отрицательный индекс, сколько ненулевых элементов в массиве, рассчитать среднее значение положительных элементов.( Все эти условия должны быть в одной программе, и с помощью массива) СПАСИБО)))))

Answer 1

                                      PascalABC.NET

begin

 var mas := ReadArrInteger('Введите массив:',ReadInteger('N ='));

 Println(mas.Where(x -> x <> 0).Count, 'Не нулевых элемента');

 Print(mas.Where(x -> x > 0).Average, 'Ср.Арифм.')

end.

//"определить сколько элементов имеет отрицательный индекс", а вот это я не понимаю...Индексы же вроде как нумеруются с 0 и они отрицательными быть не могут. Может не правильно сформулировал, либо я туплю

Answer 2

Конечно! Вот пример программы на языке Pascal, которая выполняет указанные условия:

pascalCopy code
program ArrayStatistics;

const
  N = 10; // Максимальное количество элементов в массиве

var
  arr: array[-N..N] of Integer; // Объявление массива
  i, negativeCount, nonzeroCount, positiveSum, positiveCount: Integer;
  averagePositive: Real;

begin
  negativeCount := 0;
  nonzeroCount := 0;
  positiveSum := 0;
  positiveCount := 0;

  // Ввод элементов массива с клавиатуры
  for i := -N to N do
  begin
    Write('Введите элемент массива с индексом ', i, ': ');
    ReadLn(arr[i]);

    // Проверка условий
    if i < 0 then
    begin
      if arr[i] < 0 then
        negativeCount := negativeCount + 1;
    end
    else if i > 0 then
    begin
      if arr[i] <> 0 then
        nonzeroCount := nonzeroCount + 1;

      if arr[i] > 0 then
      begin
        positiveSum := positiveSum + arr[i];
        positiveCount := positiveCount + 1;
      end;
    end;
  end;

  // Расчет среднего значения положительных элементов
  if positiveCount > 0 then
    averagePositive := positiveSum / positiveCount
  else
    averagePositive := 0;

  // Вывод результатов
  WriteLn('Количество элементов с отрицательным индексом: ', negativeCount);
  WriteLn('Количество ненулевых элементов: ', nonzeroCount);
  WriteLn('Среднее значение положительных элементов: ', averagePositive);

  ReadLn;
end.

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

Обратите внимание, что программа предполагает, что пользователь вводит целые числа. Если вам нужна поддержка дробных чисел, вам потребуется изменить тип данных для массива и переменных.