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

Question

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

Answer 1

Если числа чётные и оканчиваются на 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;