===== 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.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
===== 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.