Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов...

Question

Дан массив размера N и целые числа K и L (1 < K ≤ L ≤ N). Найти сумму всех элементов массива, кроме элементов с номерами от K до L включительно.

Answer 1

// PascalABC.NET 3.3, сборка 1547 от 07.10.2017
// Внимание! Если программа не работает, обновите версию!

begin;
  var (n,k,l):=ReadInteger3('Введите через пробел n,k,l:');
  var a:=ArrRandom(n,-99,99); a.Println;
  Writeln('s=',(a?[:k-1]+a?[l:]).Sum)
end.

Пример
Введите через пробел n,k,l: 15 6 11
-95 -70 45 -58 47 -7 40 -70 -91 42 -51 -76 71 -44 -32
s=-212