Question

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

Answer 1

==== PascalABC.NET =====

begin

 var (m, n) := ReadInteger2('Количество строк и столбцов:');

 var X := MatrRandom(m, n, -99, 99);

 Writeln('Массив Х');

 X.Println(6);

 var Y := MatrRandom(m, n, -99, 99);

 Writeln('Массив Y');

 Y.Println(6);

 Writeln('Массив результатов');

 var Z := new real[m, n];

 for var i := 0 to m - 1 do

   for var j := 0 to n - 1 do

     Z[i,j] := (X[i,j] + Y[i,j]) / 2;

 Z.Println(6,1);

   Println('Произведение средних равно', Z.ElementsByRow.Product)

end.

Answer 2

Для решения данной задачи в Pascal можно использовать следующий код:

pascalCopy code
program AverageArrays;

const
  n = 3; // Количество строк в массивах
  m = 3; // Количество столбцов в массивах

type
  TMatrix = array[1..n, 1..m] of Integer;

procedure InitializeArray(var matrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      matrix[i, j] := Random(10); // Заполнение массива случайными числами от 0 до 9
end;

procedure CalculateAverageArrays(const matrixX, matrixY: TMatrix; var averageMatrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do
    for j := 1 to m do
      averageMatrix[i, j] := (matrixX[i, j] + matrixY[i, j]) div 2; // Среднее арифметическое элементов
end;

procedure PrintArray(const matrix: TMatrix);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    for j := 1 to m do
      Write(matrix[i, j]:4);
    Writeln;
  end;
  Writeln;
end;

var
  X, Y, average: TMatrix;

begin
  Randomize; // Инициализация генератора случайных чисел

  InitializeArray(X);
  InitializeArray(Y);

  Writeln('Массив X:');
  PrintArray(X);

  Writeln('Массив Y:');
  PrintArray(Y);

  CalculateAverageArrays(X, Y, average);

  Writeln('Массив средних арифметических:');
  PrintArray(average);
end.

В этом коде мы сначала объявляем тип TMatrix для представления двумерного массива. Затем определяем процедуру InitializeArray, которая заполняет массивы X и Y случайными числами от 0 до 9.

Далее есть процедура CalculateAverageArrays, которая принимает массивы X и Y и вычисляет среднее арифметическое элементов, сохраняя результаты в массив average.

Наконец, процедура PrintArray используется для вывода массивов X, Y и average на экран.

В основной части программы мы инициализируем генератор случайных чисел, заполняем массивы X и Y, выводим их на экран, вычисляем среднее арифметическое и выводим полученный массив на экран.

После запуска программы вы увидите вывод, включающий исходные массивы X и Y, а также массив average с средними арифметическими значениями соответствующих элементов.