Var i,k,n: integer;
    a: array[1..2017] of integer;
begin
//  n:=2017;
  write('n = ');  readln(n);  // для проверки
  for i:=1 to n do read(a[i]);
  k:=0;
  for i:=1 to n do
  if (16<=a[i]) and (a[i]<=254) then
  if (a[i] div 16) > (a[i] mod 16) then k:=k+1;
  writeln(k);
end.

n = 4
160 148 63 528
2

Возьмем произвольное число n. Оно будет иметь ровно два знака в шестнадцатеричной записи тогда и только тогда, когда 15 < n < 256. Таким образом, задача сводится к нахождению количества элементов массива находящихся в промежутке (15; 256). 
Первую цифру числа в шестнадцатеричной записи можно найти как N div 16, а вторую - N mod 16
Программа на языке Pascal:

const
  N = 2017; // Количество элементов в массиве

var
  a: array[1..N] of integer;
  i, c: integer;

begin
  // Генерация массива (можно изменить на ввод с клавиатуры)
  for i := 1 to N do
    a[i] := Random(10000) + 1;
  // Подсчет количества элементов массива, удовлетворяющим 
неравенству
  c := 0;
  for i := 1 to N do
    if (a[i] > 15) and (a[i]a[i] mod 16) then
      c += 1;
  write(c);
end.