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

Предыдущий
вопрос Следующий
вопрос

program FindSmallestOctalEndingWith7;
var
arr: array[1..40] of integer;
i, min: integer;
begin
min := 0;
// Ввод элементов массива
for i := 1 to 40 do
begin
readln(arr[i]);
end;
// Поиск минимального элемента восьмеричной записи оканчивающегося на 7
for i := 1 to 40 do
begin
if (arr[i] mod 8 = 7) and ((min = 0) or (arr[i] < min)) then
begin
min := arr[i];
end;
end;
// Вывод результата
if min = 0 then
writeln('Ответ: 0')
else
writeln('Наименьший элемент массива восьмеричной записи оканчивающегося на 7: ', min);
end.