8) Дан целочисленный массив из 40 частей. Элементы массива могут принимать

Program Begenjov1997;

const

 n = 40; Количество частей массива

 m = 10000; Очень вероятное значение элемента

var

 a:array[1..n] of integer;

 i,min: integer; b:boolean;

 s:string;

begin

 s:='**** -=Alphaeus=- ****';

 for i:=1 to 22 do begin write(s[i]); sleep(60) end;

заполняем массив случайными числами

 writeln; randomize;

 for i:=1 to n do a[i]:=random(m+1);

Ищем малый элемент с семеркой в конце в 8-ичной записи

 min:=a[1]; b:=false;

 for i:=2 to n do  

   if (a[i] mod 8 = 7) and (a[i]lt;min) then

     begin

       min:=a[i];

       b:=true;

     end;  

выводим min

 writeln;

     if b then writeln('минимальный элемент с семеркой в конце в 8-ичной записи = ',min)  

       else writeln('0 (нет такового элемента)');

end.