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.
