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)/3<>int(a(i)/3) then print a(i)
2 next

1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 5 =0) and (a[i] mod 3<>0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.
1.
var i, k, n: integer;
            a: array of integer;
begin writeln('Введите кол-во элементов массива');
          readln(N);
          k:=0;
          for i:=1 to N do
          begin read(a[i]);
                    if (a[i] mod 2 =0) and (i mod 3=0) then
                    inc(k);
          end;
          writeln('k=',k);
readln;
end.