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

// 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.

1)  (Если была высшая математика, то должно быть понятно.) 
Ну допустим надо посчитать сред. ариф. всех элементов массива.
Пусть будет массив размерностью (Типа таблица) 3х3, запишем его так (он двухмерный)
 A[n,m]; -  основное положение массива, где n строка, где m столбец.
Давать ему наименование равно такому же смыслу как и Program N; никаких цифр впереди например 1A, правильно записывать массив - A1, XD1D4, _s4; _1; _1d1 и т.д.
Массив должен иметь такой же тип переменных какой задан в условии, т.е. непосредственно real = real. Элементы массива записываются через запятую. И снова же, если массив имеет тип данных целых чисел, то элементы его тоже должны соответствовать им A[i,j] = integer; i,j - type integer;
Сейчас допишу остальные

         Если ошибся,поправьте.

                                                  Начало

                                

                                                 Вывод(указываем переменные,A,B.ну и т.д.)

 

               Да                               Условие(к примеру:A>=B)          Нет                                                                            

 

         Если х=A+B                                                                                Иначе х=A/B

 

                                               Ну и дальше вывод,и конец.

                                       Вывод

                                       

                                       Конец.