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

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 3lt;gt;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.

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