Найти сумму первых U элементов массива K(N) и произведению последних j элементов этого...

Question

Найти сумму первых U элементов массива K(N) и произведению последних j элементов этого массива.

Answer 1

PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018
Внимание! Если программа не работает, обновите версию!

begin
  var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;
  var (u,j):=ReadInteger2('Введите u и j через пробел:');
  Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);
  Writeln('Произведение последних ',j,' элементов ',
      k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));
end.

Пример
n= 20
39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22
Введите u и j через пробел: 12 13
Cумма первых 12 элементов 17
Произведение последних 13 элементов 2781117283830792192