Question

Дан целочисленный массив из 40 элементов. Элементы массива могут принимать целые значения от 1 до 10000 включительно. Напишите алгоритм, позволяющий найти и вывести минимальный элемент массива, шестнадцатеричная запись которого содержит ровно две цифры, причём первая (старшая) цифра больше второй (младшей). Если таких чисел нет, нужно вывести ответ 0

Answer 1

Program zadacha;
var
a:array[1..40]of integer;
i,min:integer;
begin
min:=10001;
writeln('Введите значение элементов');
for i:=1 to 5 do begin readln(a[i]);
if (a[i] div 16 >9) and (a[i] div 16 < 99) and (a[i]<min) then
min:=a[i];
end;
if (min<>10001) then
writeln('Минимальное значение = ',min)
else
writeln(0);
end.