Предмет: Информатика, автор: иришка2091995

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

Ответы

Автор ответа: Аноним
0
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.

Автор ответа: Аноним
0
Значения элементов должны быть заключены в интервале [А,В], а программа работает с элементами, индексы которых заключены в интервале [А,В]
Автор ответа: Аноним
0
извиняюсь. не так понял условие. тогда вместо for i пишете
if (a[i]>a) and (a[i]<b) then
Похожие вопросы
Предмет: Химия, автор: Akhmatovakhava