Двоичное число 111111 в десятичной системе счисления записывается как: 63 38 37 46

В общем, это то же самое, что и для максимального, только вначале ты присваиваешь переменной min значение первого числа последовательности, а потом сравниваешь с этим числом все остальные. Смотри:

 

В Паскале:

Var a, i, mix, N: integer;

Begin

 Write ('Введите количество чисел в последовательности '); readln (N);

 Write ('Введите первое число последовательности '); readln (a);

 min:=a;

 for i:=1 to N do

 begin

  Write ('Введите следующее число последовательности '); readln (a);

  if (a mod 3 = 0) and (a<min) then min:=a;

 end;

 Writeln ('Минимальное число, кратное 3 в последовательности равно ', min);

End.