Question

Нужна полностью программа -----------------------В массиве Y(n) найти среднее арифметическое положительных элементов, имеющих четные номераPascal -----------------------через одномерный массив​

Answer 1

const

 m = 100;

var

 n, i, k: integer;

 s: real;

 Y: array[1..m] of real;

begin

 read(n);

 s := 0;

 k := 0;

 for i := 1 to n do

 begin

   read(Y[i]);

   if (i mod 2 = 0) and (Y[i] > 0) then

   begin

     s := s + Y[i];

     k := k + 1;

   end;

 end;

 s := s / k;

 write(s);

end.

Answer 2

Конечно, вот пример программы на языке Pascal, который решает данную задачу:

arduinoCopy code
program AveragePositiveElements;

var
  Y: array of integer; // объявляем динамический массив
  n, i, count, sum: integer;
  average: real;
  
begin
  write('Введите размер массива: ');
  readln(n);
  
  // инициализируем массив случайными значениями
  SetLength(Y, n);
  for i := 0 to n - 1 do
  begin
    Y[i] := random(21) - 10; // случайные числа от -10 до 10
    write(Y[i], ' ');
  end;
  writeln;
  
  // находим среднее арифметическое положительных элементов с четными номерами
  count := 0;
  sum := 0;
  for i := 0 to n - 1 do
  begin
    if (i mod 2 = 0) and (Y[i] > 0) then
    begin
      count := count + 1;
      sum := sum + Y[i];
    end;
  end;
  if count > 0 then
    average := sum / count
  else
    average := 0;
  
  writeln('Среднее арифметическое положительных элементов с четными номерами: ', average:0:2);
  
end.

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