1.В одномерном массиве подсчитать сумму тех элементов массива, которые кратны 5, но не делятся на 3. 2.В одномерном массиве подсчитать произведение тех элементов массива, которые стоя на индексах, кратных 3, а сами элементы четные.

Cls
input n
dim a(n)
for i = 1 to n
input a(i)
next
for i =1 to n
if a(i)/5=int(a(i)/5) then goto 1 else goto 2
1 if a(i)/3int(a(i)/3) then print a(i)
2 next