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

Question

Информатика

Илия

27 декабря, 01:12

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

+1

Ответы (1)

Знаете ответ на вопрос?

Пиама · Answer 1

Var ar:array[1 ... 20] of integer;

k, l, a, b:integer;

begin

randomize;

readln (k) ;

readln (l) ;

for a:=1 to 20 do

ar[a]:=random (a) ;

for a:=k to l do

b:=b+ar[a];

writeln (b) ;

end.