Вычислить произведение элементов последовательности А1, … ,Аn кратных p — QBasic(Бейсик) — Справочник разработчика. Приемная комиссия

proizved=1
for i=1 to n
if a(i)mod p=0 then proizved=proizved*a(i)
next
print proizved

Тестирование выполнено в программе QB64 ( Скачать )

Вычислить произведение элементов последовательности А1, … ,Аn кратных p — QBasic(Бейсик)