заполните массив случайными числами в диапазоне 1000..2000 и подсчитайте число элементов у которых вторая с конца цифра - четная

Размер массива не указан, поэтому в программе считаю его 100. Легко переделать под себя.

var

 a: array[1..100] of integer;

 i, cnt: integer;

begin

 for i := 1 to 100 do

   a[i] := random(1001) + 1000;

 for i := 1 to 100 do

   if (a[i] div 10) mod 2 = 0 then cnt := cnt + 1;

 writeln(cnt);

end.

--------------------------------------------------

Файл с решением прикреплён.