Определите кол-во четных значений последовательности оканчивающегося на 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;