Дан массив, содержащий 2016 положительных целых чисел, не превышающих 1000. необходимо найти и вывести максимальный из тех элементов этого массива, шестнадцатеричная запись которых заканчивается символом b. если таких чисел в массиве нет, ответ считается равным нулю. исходные данные объявлены так, как показано ниже. запрещается использовать переменные, не описанные ниже, но разрешается не использовать часть из описанных переменных. бейсик const n=2016 dim a(n) as integer dim i, m, k as integer for i = 1 to n input a(i) next i … end в качестве ответа вам необходимо фрагмент программы, который должен находиться на месте многоточия. вы можете записать решение также на другом языке программирования (укажите название и версию языка программирования). в этом случае вы должны использовать те же самые исходные данные и переменные, какие были предложены в условии.
//Если программа не запускается, то обновите версию
const
n = 2016;
var
A: array[1..n] of integer;
i, m, k: integer;
begin
for i := 1 to n do
begin
// A[i] := Random(10000);
readln(a[i]);
end;
m := 0;
for i := 1 to n do
if (a[i] mod 16 = 11) and (a[i] > m) then
m := a[i];
writeln(m);
end.