Заполнить массив случайными числами в диапазоне 2000 .. 4000. Подсчитать количество элементов, у которых вторая цифра - нечётная.

• const N = 15;
• var
  count, i: integer;
  A: array
  \[1\.\.n\]
  of integer;
• begin
  count := 0;
• Randomize;
• for i := 1 to N do
• begin
  A
  \[i\]
  := random\(2001\) + 2000;
• Write\(A⟨1⟩, ' '\);
• if \(A⟨1⟩ div 100 mod 10\) mod 2 = 1 then count := count + 1;
  end;
• writeln;
• Write\(count\)
  end.