211 160 237 224 241 160 231 224 226 229 235 232 241 252 160 239 240 229 228 224 242 229 235 232 160 - id970522420210618 от masha9form 18.06.2021 10:48

Question

Информатика: 211 160 237 224 241 160 231 224 226 229 235 232 241 252 160 239 240 229 228 224 242 229 235 232 160 240 238 228 232 237 251. 160 194 160 241 226 255 231 232 160 241 160 253 242 232 236 160 236 251 160 226 251 237 243 230 228 229 237 251 160 232 231 236 229 237 232 242 252 160 241 232 241 242 229 236 243 160 248 232 244 240 238 226 224 237 232 255 раскодируйте

masha9form · Accepted Answer

// 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 и м2, содержащие к1 и к2 целых чисел, соответственно. определить произведение чи

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

MOGZ ответил