Question

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

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.