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

спасибо огромное, дружище!

Обращайся!

Если правильно лайк поставь

var i,max:integer;a:array[1..40]of integer;beginmax:=-1;writeln('Введите значения членов массива');for i:=1 to 40 do beginreadln(a[i]);if  (a[i] mod 8 =7) and (a[i]>max) then max:=a[i];end;if (max<>-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');end.