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

2 next