Question

Дан массив, содержащий 2016 положительных целых чисел, не
превышающих 1000. Необходимо найти и вывести максимальный из тех
элементов этого массива, шеснадцатиричная запись которых содержит ровно 2 цифры. Если таких чисел в массиве нет, ответ считается равным нулю.
Исходные данные объявлены так, как показано ниже. Запрещается
использовать переменные, не описанные ниже, но разрешается не
использовать часть из описанных.
const
N=2016;
var
a: array [1..N] of integer;
i, m, k: integer;
begin
for i:=1 to N do
readln(a[i]);
…
end.
В качестве ответа Вам необходимо привести фрагмент программы, который
должен находиться на месте многоточия. Вы можете записать решение также
на другом языке программирования (укажите название и версию языка
программирования). В этом случае Вы должны использовать те же самые
исходные данные и переменные, какие были предложены в условии.

Answer 1

Const N=2016; 
var 
a: array [1..N] of integer; 
i, m: integer; 
begin 
for i:=1 to N do a[i]:=random(1001)+1;
// readln(a[i]);
m:=0;
// 10(16) = 16(10); FF(16)=16*15+15=255
for i:=1 to n do
 if (a[i]>=16)and(a[i]<=255)and(a[i]>m)
   then m:=a[i];
writeln('m = ',m);
end. 

Пример:
m = 254