Question

Найти произведение средних арифметических элементов массивов X(n,m) и Y(n,m)
Pascal​

Answer 1

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

begin

 var (n, m) := ReadInteger2('Введите n и m:');

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

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

 X.Println(4);

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

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

 Y.Println(4);

 Println('Результат:',

     X.ElementsByRow.Average * Y.ElementsByRow.Average)

end.