Question

СРОЧНО, нужна помощь! Достаточно легкая задача на среднюю арифметическую. Паскаль Заменить в двумерном массиве элементы, значение которых меньше среднего арифметического всех элементов массива, на средний. Вывести измененный массив. Помогите, пожалуйста!

Answer 1

Ответ:

program Average;

var

 a: array [1..10, 1..10] of Real;

 i, j: Integer;

 s: Real;

begin

 Randomize;

 for i := 1 to 10 do begin

   WriteLn;

   for j := 1 to 10 do begin

     a [i, j] := Random (100);

     Write (a [i, j] :6 :2);

   end;

 end;

 s := 0;

 for i := 1 to 10 do begin

   for j := 1 to 10 do begin

     s := s + a [i, j];

   end;

 end;

 s := s / 100;

 WriteLn;

 WriteLn ('Среднее = ', s :6 :2);

 for i := 1 to 10 do begin

   for j := 1 to 10 do begin

     if a [i, j] < s then

       a [i, j] := s;

   end;

 end;

 for i := 1 to 10 do begin

   WriteLn;

   for j := 1 to 10 do begin

     Write (a [i, j] :6 :2);

   end;

 end;

 ReadLn;

end.

Answer 2

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

pascalCopy code
program ReplaceElements;
const
  N = 3; // количество строк массива
  M = 3; // количество столбцов массива

var
  arr: array[1..N, 1..M] of Integer;
  i, j, sum, average: Integer;

begin
  // Заполнение массива
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write('Введите элемент массива arr[', i, ',', j, ']: ');
      Readln(arr[i, j]);
    end;
  end;

  // Вычисление суммы элементов массива
  sum := 0;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      sum := sum + arr[i, j];
    end;
  end;

  // Вычисление среднего арифметического
  average := sum div (N * M);

  // Замена элементов
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      if arr[i, j] < average then
        arr[i, j] := average;
    end;
  end;

  // Вывод измененного массива
  Writeln('Измененный массив:');
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      Write(arr[i, j], ' ');
    end;
    Writeln;
  end;
end.

Эта программа запрашивает у пользователя элементы двумерного массива, вычисляет среднее арифметическое всех элементов и заменяет элементы, которые меньше среднего, на значение среднего арифметического. Затем программа выводит измененный массив на экран.

Обратите внимание, что размеры массива (количество строк и столбцов) заданы константами N и M, их можно изменить в соответствии с вашими требованиями.