Массивы( 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)