Untitled

program ArrayAdditionalOperations;

var
  A: array[1..10] of integer;
  i, sumBelow50, countBelow50, productEvenPositive: integer;
  averageBelow50: real;

begin
  // Заполним массив A вашими значениями (например, [10, 20, 30, 40, 50, 60, 70, 80, 90, 100])
  A[1] := 10;
  A[2] := 20;
  A[3] := 30;
  A[4] := 40;
  A[5] := 50;
  A[6] := 60;
  A[7] := 70;
  A[8] := 80;
  A[9] := 90;
  A[10] := 100;

  // 4. Вычисление среднего арифметического всех элементов массива A, которые меньше 50
  sumBelow50 := 0;
  countBelow50 := 0;
  for i := 1 to 10 do
  begin
    if A[i] < 50 then
    begin
      sumBelow50 := sumBelow50 + A[i];
      countBelow50 := countBelow50 + 1;
    end;
  end;
  averageBelow50 := sumBelow50 / countBelow50;
  writeln('Среднее арифметическое всех элементов массива A, которые меньше 50: ', averageBelow50:0:2);

  // 5. Вычисление произведения всех чётных положительных элементов массива A
  productEvenPositive := 1;
  for i := 1 to 10 do
  begin
    if (A[i] > 0) and (A[i] mod 2 = 0) then
    begin
      productEvenPositive := productEvenPositive * A[i];
    end;
  end;
  writeln('Произведение всех чётных положительных элементов массива A: ', productEvenPositive);
end.