Пожалуйста помогите... очень срочно... защищаю четверть... плиз. Дан целочисленный массив , подсчитать
произведение элементов кратных 3, порядковые номера которых кратны 5
Const
n=20;
var
a:array[1..n]of integer;
i:integer;
p:real;
begin
p:=1;
for i:=1 to n do
readln (a[i]);
writeln;
for i:=1 to n do
begin
write (a[i]:4);
if (a[i] mod 3=0)and(i mod 5=0)then
p:=p*a[i];
end;
writeln;
writeln(P: ,p);
end.
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
