Дан массив, содержащий 2017 положительных целых чисел, не превышающих 10000. необходимо найти и вывести количество таких элементов этого массива, шестнадцатеричная запись которых содержит ровно два знака, и при этом первая цифра больше второй. например, для массива из 4 элементов, содержащего числа 160, 148, 63, 528, ответ будет равен 2. в шестнадцатеричной системе эти числа записываются как a0, 94, 3f, 210; первые два числа подходят, в третьем – первая цифра не больше второй, в четвёртом – больше двух знаков. на языке паскаль объясните , !

Возьмем произвольное число 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] < 256) and (a[i] div 16 > a[i] mod 16)  then       c += 1;   write(c); end.

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

4) по крайней мере мне так кажется: )