определите кол-во четных значений последовательности оканчивающегося на 0, очень срочно нужна написанная программа.

Если числа чётные и оканчиваются на 0, то значит они нацело делятся на 10. Следовательно определить их можно по остатку от деления на 10 (x mod 10):<задаёте свою последовательность в массив myarray[]>begin   for var i:=0 to length(myarray)-1 do if (myarray[i] mod 10)=0 then summa:=summa+1;   writeln('Vsego chisel: ',summa);end;