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

Answer 2

Чтобы найти сумму первых U элементов массива K(N) и произведение последних j элементов, нужно выполнить следующие шаги:

1. Найти сумму первых U элементов:

   • Проинициализируйте переменную sum_U равную нулю.
   • Сделайте цикл для первых U элементов массива K(N) и добавьте каждый элемент к sum_U.

2. Найти произведение последних j элементов:

   • Проинициализируйте переменную product_j равную 1 (произведение инициализируется единицей, так как умножение на 1 не изменяет значение).
   • Сделайте цикл для последних j элементов массива K(N) и умножьте каждый элемент на product_j.

Ниже приведен псевдокод для этого алгоритма:

plaintextCopy code
sum_U = 0
product_j = 1

// Найти сумму первых U элементов массива K(N)
for i = 0 to U - 1:
    sum_U = sum_U + K(i)

// Найти произведение последних j элементов массива K(N)
for i = N - 1 downto N - j:
    product_j = product_j * K(i)

// Вывести результаты
Вывести sum_U
Вывести product_j

Заметим, что в данном алгоритме индексы массива начинаются с 0, так как это стандартное поведение во многих языках программирования. Если в вашем языке программирования индексы начинаются с 1, не забудьте скорректировать их соответственно.