Предмет: Информатика, автор: HelenCopp

Даны два массива М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.
Приложения:

HelenCopp: Что в данной программе выполняет Aggregate?
Похожие вопросы
Предмет: Русский язык, автор: Irzael
Уровень мыслительных навыков время выполнения задания прочитайте текст и выполните задания. я сидел, погруженный в глубокую задумчивость, как вдруг савельич прервал мои размышления. «вот, сударь, сказал он, подавая мне исписанный лист бумаги, посмотри, доносчик ли я на своего барина и стараюсь ли я помутить сына с отцом.» я взял из рук его бумагу: это был ответ савельича на полученное им письмо. вот он от слова до слова: «государь андрей петрович, отец наш милостивый! милостивое писание ваше я получил, в котором изволишь гневаться на меня, раба вашего, что-де стыдно мне не исполнять господских приказаний; а я, не старый пес, а верный ваш слуга, господских приказаний слушаюсь и усердно вам всегда служил и дожил до седых волос. я ж про рану петра андреича ничего к вам не писал, чтоб не испужать понапрасну, и, слышно, барыня, мать наша авдотья васильевна и так с испугу слегла, и за ее здоровие бога буду молить. а петр андреич ранен был под правое плечо, в грудь под самую косточку, в глубину на полтора вершка, и лежал он в доме у коменданта, куда принесли мы его с берега, и лечил его здешний цирюльник степан парамонов; и теперь петр андреич, слава богу, здоров, и про него, кроме хорошего, нечего и писать. командиры, слышно, им довольны; а у василисы егоровны он как родной сын. а что с ним случилась такая оказия, то быль молодцу не укора: конь и о четырех ногах, да спотыкается. а изволите вы писать, что сошлете меня свиней пасти, и на то ваша боярская воля. за сим кланяюсь рабски. верный холоп ваш архип савельев». я не мог несколько раз не улыбнуться, читая грамоту доброго старика. отвечать батюшке я был не в состоянии; а чтоб успокоить матушку, письмо савельича мне​