Приведенный ниже код на Pascal вычисляет сумму элементов массива A[20], которые принадлежат интервалу [i, i+1].

program SumElementsInRange;
var
A: array[1..20] of Integer;
i, sum: Integer;
begin
sum := 0;
// заполнение массива A случайными числами
Randomize;
for i := 1 to 20 do
begin
A[i] := Random(100); // генерируем случайное число от 0 до 99
end;
// вычисляем сумму элементов массива A, которые принадлежат интервалу [i, i+1]
for i := 1 to 19 do
begin
if (A[i] >= i) and (A[i] < i + 1) then
begin
sum := sum + A[i];
end;
end;
// выводим результат
writeln('Сумма элементов массива A, которые принадлежат интервалу [i, i+1]: ', sum);
end.

Этот код сначала заполняет массив A[20] случайными числами от 0 до 99, затем проходит по массиву и суммирует только те элементы, которые принадлежат интервалу [i, i+1]. Результат выводится на экран.