[lmikle]

Ну, принцип тот же. Бежим по одному массиву, проверяем, есть ли такой элемент во втором и, если нету, то смотрим, не является этот элемент меньше, чем уже найденный.

Как-то так:

Код:

function IsInArray(E : Integer; A : Array Of Integer) : Boolean;
var
  I : Integer;
begin
  Result := False;
  For I := Low(A) To High(A) Do
    Begin
      Result := A[i] = E;
      If Result Then Break;
    End;
end;

function FindMinElement(A, B : Array Of Integer) : Integer;
var
  I : Integer;
  F : Boolean;
begin
  F := True;
  For I := Low(A) To High(A) Do
    If Not IsInArray(A[i],B) Then
      If F Then
        Begin
          Result := A[i];
          F := False;
        End
      Else
        If A[i] < Result Then Result := A[i]; 
end;