Дан массив X(N). найти произведение тех элементов массива значения которых заключены в...

Question

Дан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5

Answer 1

A:array[1..10000] of integer;
i, n, a, b, k:integer;
begin
k:=1;
readln(n, a, b);
for i:=1 to n do
readln(a[i]);
for i:=a to b do
if ((a[i] mod 3)=0) or ((a[i] mod 5)=0) then k:=k*a[i];
writeln(k);
readln;
end.

Comments

Значения элементов должны быть заключены в интервале [А,В], а программа работает с элементами, индексы которых заключены в интервале [А,В]

---

извиняюсь. не так понял условие. тогда вместо for i пишете
if (a[i]>a) and (a[i]<b) then