Question

В одномерном массиве, состоящем из n вещественных элементов, заменить каждый элемент > 0, значением среднего арифметического элементов массива. Pascal ABC. Без "randomize".

Answer 1

Program z;
const n=5;
var a:array[1..n] of real;
i:integer; s:real;
begin
s:=0;
for i:=1 to n do
begin
readln(a[i]);
s:=s+a[i];
end;
s:=s/n;
for i:=1 to n do
if a[i]>0 then a[i]:=s;
for i:=1 to n do
write(a[i],' ');
end.

Answer 2

Для замены каждого положительного элемента в одномерном массиве на среднее арифметическое всех элементов массива в Pascal ABC, вам нужно выполнить следующие шаги:

1. Вычислить среднее арифметическое всех элементов массива.
2. Пройти по массиву и заменить каждый положительный элемент на значение среднего арифметического.

Вот пример кода на Pascal ABC, реализующий это:

pascalCopy code
program ReplacePositiveWithMean;

const
  n = 5; // Размер массива, здесь можно указать свое значение

type
  RealArray = array[1..n] of Real;

var
  arr: RealArray;
  i: Integer;
  sum, mean: Real;

// Функция для вычисления среднего арифметического элементов массива
function CalculateMean(a: RealArray): Real;
var
  i: Integer;
begin
  sum := 0;
  for i := 1 to n do
    sum := sum + a[i];
  CalculateMean := sum / n;
end;

begin
  // Ввод элементов массива (можно использовать любой метод ввода данных)
  writeln('Введите ', n, ' вещественных чисел:');
  for i := 1 to n do
    readln(arr[i]);

  // Вычисляем среднее арифметическое
  mean := CalculateMean(arr);

  // Заменяем каждый положительный элемент на среднее арифметическое
  for i := 1 to n do
  begin
    if arr[i] > 0 then
      arr[i] := mean;
  end;

  // Выводим измененный массив
  writeln('Измененный массив:');
  for i := 1 to n do
    writeln(arr[i]:0:2); // Выводим элементы массива с двумя знаками после запятой
end.

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