Массивы( 4. Найти все элементы кратные 3 либо 5. Сколько их?5.

Не знаю, какой язык нужен, так что пусть будет паскаль.
В обоих случаях подразумевается, что есть заполненный массив A с индексами от 1 до n.
i - целочисленная цикловая переменная.
k - целочисленная переменная, куда записывается ответ

4)
k := 0;
for i := 1 to n do
if (A[i] mod 3 = 0) or (A[i] mod 5 = 0) then
begin
write(A[i],' '); вывод на экран - т.к. требуется отыскать элементы
k := k + 1 элемент учитывается в счетчике
end;
writeln;
write(k) количество таких частей

5)
k := 0;
for i := 1 to n do
if (A[i] mod 2 = 0) and (i mod 2 = 0) then
k := k + 1;
write(k)