Найти произведение средних арифметических элементов массивов x(n,m) и y(n,m) , нужно создать третий массив, каждым элементом которого будет среднее арифметическое соответствующих элементов массивов х и y. pascal
Алг нач цел число элементов, позиция, максимум, минимум число элементов:=10 целтаб a[1:число элементов] максимум:=-10000 минимум:=10000 нц для позиция от 1 до число элементов ввод a[позиция] если максимум<a[позиция] то максимум:=a[позиция] иначе если минимум>a[позиция] то минимум:=a[позиция] все все кц вывод "максимум=",максимум,", минимум=",минимум кон
Тестовое решение: >> 15:26:57 - Новая программа* - Выполнение начато 5 15 4 8 -2 7 2 9 11 10 максимум=15, минимум=-2 >> 15:27:49 - Новая программа* - Выполнение завершено
==== 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.