Найти номер первого и последнего четного элемента в массиве
......................................................
Вы что там PHP изучаете :D
if (s[i] mod 2 = 0) and (s[i] <> 0) then begin
Это если Pascal