дан целочисленный массив из 40 частей элементы массива могут принимать целые

составьте пожалуйста программу, либо желая бы программку, схожую на этомдан целочисленный массив из 40 частей элементы массива могут принимать целые значения от 0 до 10000 включительно дозволяющий отыскать и вывести наименьший из частей массива восьмиричная система которого оканчивается на 7

вот дописал

как это восьмиричная система которого оканчивается на 7

если не трудно, не необходимо с помощью супер трудных команд, учитель докопается)

восьмеричная запись*

ааа

Но баллов мог бы и по-больше дать

Задание не из легких

я просто в инфе шарю мне легко

я только зарегался на веб-сайте, ниче не знаю, благодарю

Var i,max:integer;
a:array[1..40]of integer;
begin
max:=-1;
writeln('Введите значения членов массива');
for i:=1 to 40 do begin
readln(a[i]);
if  (a[i] mod 8 =7) and (a[i]gt;max) then max:=a[i];
end;
if (maxlt;gt;-1) then writeln('Наибольшее число:',max) else writeln('Чисел по данному параметру нет');
end.