Дан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5
Дан массив X(N). найти произведение тех элементов массива значения которых заключены в интервале [А,В] и кратны 3 или 5
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы