Даны два массива М1 и М2, содержащие К1 и К2 целых чисел, соответственно. Определить произведение чисел в каждом из этих массивов, и вывести произведение полученных результатов.
Примечание. Программа должна содержать две процедуры (процедура ввода массивов и процедура нахождения произведения элементов)
Ответы
Ответ дал:
1
// PascalABC.NET 3.3.5, сборка 1640 от 17.03.2018
// Внимание! Если программа не работает, обновите версию!
procedure ArrRead(var a:array of integer);
begin
var n:=ReadInteger('Количество элементов в массиве:');
a:=ReadArrInteger('Введите элементы массива:',n)
end;
procedure ArrMult(a:array of integer; var p:BigInteger);
begin
p:=a.Aggregate(BigInteger(1),(p,q)->p*q)
end;
begin
var m1,m2:array of integer;
ArrRead(m1); ArrRead(m2);
var p1,p2:BigInteger;
ArrMult(m1,p1); ArrMult(m2,p2);
Writeln('Произведение элементов первого массива ',p1);
Writeln('Произведение элементов второго массива ',p2);
Writeln('Общее произведение ',p1*p2)
end.
// Внимание! Если программа не работает, обновите версию!
procedure ArrRead(var a:array of integer);
begin
var n:=ReadInteger('Количество элементов в массиве:');
a:=ReadArrInteger('Введите элементы массива:',n)
end;
procedure ArrMult(a:array of integer; var p:BigInteger);
begin
p:=a.Aggregate(BigInteger(1),(p,q)->p*q)
end;
begin
var m1,m2:array of integer;
ArrRead(m1); ArrRead(m2);
var p1,p2:BigInteger;
ArrMult(m1,p1); ArrMult(m2,p2);
Writeln('Произведение элементов первого массива ',p1);
Writeln('Произведение элементов второго массива ',p2);
Writeln('Общее произведение ',p1*p2)
end.
Приложения:
![](https://st.uroker.com/files/543/543ecbe96e4989a4673980a9e21c25fd.jpg)
HelenCopp:
Что в данной программе выполняет Aggregate?
Вас заинтересует
5 месяцев назад
5 месяцев назад
1 год назад
2 года назад
7 лет назад