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

Const

nn=100;

var

a:array[1 ... nn] of integer;

i, n, k, l, s:integer;

begin

Randomize;

Write ('Количество элементов в массиве: ') ; Read (n) ;

Write ('Границы для суммирования: ') ; Read (k, l) ;

{ Считаем, что все введено корректно без проверки }

Writeln ('Элементы массива') ;

s:=0;

for i:=1 to n do begin

a[i]:=Random (100) ;

Write (a[i],' ') ;

if i in [k ... l] then s:=s+a[i]

end;

Writeln (#13#10,'Найденная сумма: ', s)

end.

Пример

Количество элементов в массиве: 13

Границы для суммирования: 3 9

Элементы массива

30 82 9 6 20 99 58 61 18 61 73 51 28

Найденная сумма: 271

Язык не написан, значит могу написать на любом? Вот тебе jа vascript; D

var arr = [], N, K, L, sum = 0; / / (1 < = K < = L < = N)

N = Number (prompt ('Введите размер массива (N) ')) ;

K = Number (prompt ('Введите K')) ;

L = Number (prompt ('Введите L')) ;

for (let i = 0; i < N; i++) {

arr[i] = Math. round (Math. random () * 10) ;

if (K = i) sum + = arr[i];

}

console. log ('В массиве, размерностью ${N}, состоящем из чисел [${arr}], сумма элементов с позиции ${K} до ${L} (включительно), равна ${sum}') ;

/ / Или alert (text) ;

Лог программы:

Введите размер массива (N) : 15

Введите K: 3

Введите L: 12

В массиве, размерностью 15, состоящем из чисел [2,3,8,5,6,9,7,8,8,5,4,10,7,6,5], сумма элементов с позиции 3 до 12 (включительно), равна 69