Question

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

Answer 1

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]>max) then max:=a[i];
end;
if (max<>-1) then writeln('Максимальное число:',max) else writeln('Чисел по заданному параметру нет');
end.