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

Question

Информатика

Кирюша

21 июня, 21:13

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

+3

Ответы (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.