Даны два массива М1 и М2, содержащие К1 и К2 целых чисел, соответственно. Определить произведение чисел в каждом из этих массивов, и вывести произведение полученных результатов.
Примечание. Программа должна содержать две процедуры (процедура ввода массивов и процедура нахождения произведения элементов)

Предыдущий
вопрос Следующий
вопрос

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.