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.