Question

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

Answer 1

program masss;

var

a:array[-5..5] of integer;

i,oi,n0,s: integer;

begin

oi:=0;n0:=0; s:=0;

for i:=-5 to 5 do

begin

read(a[i]);

if i<0 then inc(oi);

if a[i]<>0 then inc(n0);

if a[i]>0 then s:=s+a[i];

end;

writeln('элементы с отрицательным индексом》',oi);

writeln('ненулевых элементов в массиве》',n0);

writeln('среднее значение положительных элементов》',s/11);

readln;

end.

Answer 2

Конечно, я могу помочь вам написать программу на Pascal для решения данной задачи. Вот пример решения:

pascalCopy code
program ArrayAnalysis;

const
  N = 10; // размер массива

var
  arr: array[-N..N] of Integer;
  i, negIndexCount, nonzeroCount, posSum, posCount: Integer;
  posAvg: Real;

begin
  // Инициализация переменных
  negIndexCount := 0;
  nonzeroCount := 0;
  posSum := 0;
  posCount := 0;

  // Ввод элементов массива
  writeln('Введите элементы массива:');
  for i := -N to N do
  begin
    readln(arr[i]);
    
    // Проверка отрицательного индекса
    if i < 0 then
      negIndexCount := negIndexCount + 1;
      
    // Подсчет ненулевых элементов
    if arr[i] <> 0 then
      nonzeroCount := nonzeroCount + 1;
      
    // Сумма и количество положительных элементов
    if arr[i] > 0 then
    begin
      posSum := posSum + arr[i];
      posCount := posCount + 1;
    end;
  end;
  
  // Расчет среднего значения положительных элементов
  if posCount > 0 then
    posAvg := posSum / posCount
  else
    posAvg := 0;

  // Вывод результатов
  writeln('Количество элементов с отрицательным индексом: ', negIndexCount);
  writeln('Количество ненулевых элементов: ', nonzeroCount);
  writeln('Среднее значение положительных элементов: ', posAvg:0:2);
end.

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