задача ** паскале: заполнить массив случ числами const n=5(через команду random) в...

Question

задача на паскале: заполнить массив случ числами const n=5(через команду random) в интервале [1000;2000] и подсчитать число элементов, у которых вторая с конца цифра-четная. помогите пожалуйста)) понимаю что это через команды mod или div но догнать не могу

Answer 1

uses crt;
var
i, n, k: integer;
mas : array [1..5] of integer;
begin
randomize;
n:= 5;
for i:= 1 to n do
mas[i]:= random (1000)+1000;
for i:= 1 to n do
write (mas[i],' ');
writeln;
for i:= 1 to n do begin
mas[i]:= mas[i] mod 100 div 10;
if mas[i] mod 2 = 0 then k:= k+1;
end;
writeln (k);
readkey;
end.