Question

Паскаль


Дано число n, вектор а=(а1,а2,...аn) и числа AиВ (А<B)  Найти сумму тех координат ak, для которых выполняется условие: А≤аk≤В.

Answer 1

for i:=A to B do begin
 k := k + a[i];
end;
writeln(k);