Question

Условие
Дан массив из n элементов и числа k1 и k2. Необходимо найти сумму элементов массива с k1-го по k2-й.

Формат входных данных
С клавиатуры вводится натуральное число n (n≤100). На следующей строке через пробел вводятся n элементов массива. В последней строке содержатся числа k1 и k2 — номера элементов. Все числа по модулю не превосходят 100.

Формат выходных данных
В качестве ответа выведите единственное число — сумму элементов, удовлетворяющих условию.

Answer 1

Ответ:

PascalABC.NET

begin

 ReadSeqInteger('Entery your array: ', ReadInteger('array length: '))

   .Where(x -> abs(x) < 100)

   .ToList[ReadInteger('Left Border (index): '):ReadInteger('Rigth Border (index + 1): ')]

   .Sum.Println;

end.

Объяснение:

Answer 2

===== PascalABC.NET =====

begin

 var n := ReadInteger;

 var a := ReadArrInteger(n);

 var (k1, k2) := ReadInteger2;

 a[k1 - 1:k2].Sum.Println

end.