Даны два массива м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; Сейчас допишу остальные
// Внимание! Если программа не работает, обновите версию!
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.