Массивы

[Nick-121]

даны 2 одномерных массива. требуется найти наименьший элемент массива Х не содержащийся в массиве У. Не могу реализовать сравнение с другим массивом...прошу помощи...

Program  mas_10;
uses crt;
Var a:array[1..1000]  of integer;
    b:array[1..1000]  of integer;
min,n,i:integer;
Begin
Writeln('Размерность');
Readln(n);
For i:=1 to n do
begin
readln(a[i]);
end;
For i:=1 to n do
begin
readln(b[i]);
end;
clrscr;
For i:=1 to n do
write(a[i]:4);
writeln;
For i:=1 to n do
write(b[i]:4);
min:=a[1];
//в этом участке
For i:=2 to n do
begin
if  min>a[i]  then min:=a[i];
end;
//
writeln;
writeln('min=',min)
end.

[Mandrivnyk]

Цикл по первому массиву.
Берешь элемент, проверяешь, есть ли такой же во втором массиве, и только потом, если совпадений нет -- проверяешь, является ли он минимальным среди уже пройденных элементов первого массива.

[Mad_Cat]

вариант2
сортируешь 1 массив по возрастанию и первый который есть во 2 массиве на выход)