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

Question

Информатика

Любаша

27 ноября, 02:44

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

+1

Ответы (1)

Знаете ответ?

Ионична · 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.