Question

ПАСКАЛЬ!!! ПОЖАЛУЙСТА, ПОМОГИТЕ! Заменить элементы, значение которых больше среднего арифметического на это среднее арифметическое.

Answer 1

Ответ:

a - массив;

sum - сумма элементов массива;

avrg - среднее значение.

Пример алгоритма решения задачи:

Заполняем массив (например, случайными числами).

Переменной sum изначально присваиваем значение 0.

Вычисляем сумму элементов, в цикле перебирая массив и добавляя значение каждого к переменной sum.

Находим среднее арифметическое, путем деления суммы на количество элементов (хранится в константе N).

Выводим на экран весь массив и найденное среднее значение. (Это не обязательно, но необходимо для удобства.)

Снова в цикле перебираем массив. Если очередной элемент больше среднего арифметического, то выводим этот элемент на экран.

const N = 10;

var

a: array[1..N] of integer;

i: byte;

avrg: real;

sum: integer;

begin

randomize;

for i:=1 to N do a[i]:=random(50)+1;

sum := 0;

for i:=1 to N do sum := sum + a[i];

avrg := sum/N;

// весь массив

for i:=1 to N do write(a[i]:3);

writeln;

writeln('Среднее арифм.: ',avrg:4:2);

// больше avrg

for i:=1 to N do if a[i]>avrg then write(a[i]:3);

writeln;

end.

Пример выполнения программы:

7 36 21 48 33 46 7 17 19 41

Среднее арифм.: 27.50

36 48 33 46 41

Объяснение:

Answer 2

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

1. Вычисляем сумму всех элементов массива и подсчитываем количество элементов массива. 2. Вычисляем среднее арифметическое, разделив сумму на количество элементов. 3. Проходим по каждому элементу массива. 4. Если значение элемента больше среднего арифметического, заменяем его на среднее арифметическое.

Пример реализации данного алгоритма на языке Паскаль:

program replaceElements;
var
  arr: array[1..10] of integer; // пример массива размером 10
  sum, count, average: real; // переменные для вычислений
  
begin
  sum := 0;
  count := 0;

// заполнение массива значениями (можно сделать с клавиатуры или генерировать случайно)
  arr[1] := 5;
  arr[2] := 10;
  arr[3] := 15;
  arr[4] := 20;
  arr[5] := 25;
  arr[6] := 30;
  arr[7] := 35;
  arr[8] := 40;
  arr[9] := 45;
  arr[10] := 50;

// вычисление суммы элементов и количества элементов
  for i := 1 to 10 do
  begin
    sum := sum + arr[i];
    count := count + 1;
  end;

// вычисление среднего арифметического
  average := sum / count;

// замена элементов, значение которых больше среднего арифметического, на это среднее арифметическое
  for i := 1 to 10 do
  begin
    if arr[i] > average then
      arr[i] := average;
  end;

// вывод измененного массива
  for i := 1 to 10 do
    writeln(arr[i]);

end.

В данном примере массив arr размером 10 заполняется значениями от 5 до 50. Затем вычисляется сумма элементов и количество элементов в цикле for. После этого вычисляется среднее арифметическое. Затем во втором цикле for проверяется каждый элемент массива, и если его значение больше среднего арифметического, то оно заменяется на это среднее арифметическое. В конце программы выводится измененный массив.

Обратите внимание, что в данном примере использован массив arr размером 10. Вы можете изменить размер массива или его значения в соответствии с вашими требованиями.