Даны две последовательности из n(<=1000) целых чисел. Найти наименьшее среди тех чисел первой последовательности, которые не входят во вторую(считать, что хотя бы одно такое число есть).
Проблема в том, что в массив c просто перезаписывается массив a.
Вот мой программный код
uses crt;
var
a,b,c:array[1..10]of byte;
i,j,m,n,k:byte;
begin
clrscr;
write('Vvedite kol-vo elementov 1-oy posled '); read(n);
for i:=1 to n do
begin
gotoxy(i+5,3);
read(a[i]);
end;
writeln;
write('Vvedite kol-vo elementov 2-oy posled '); read(m);
for j:=1 to m do
begin
gotoxy(j+5,7);
read(b[j]);
end;
for i:=1 to n do
for j:=1 to m do
if a[i]<>b[j] then c[i]:=a[i];
for i:=1 to n do
write(c[i],' ');
readkey;
end.
Минимальный элемент я смогу найти сама, вот только бы нужную последовательность получить. Заранее благодарю за понимание и содействие