массивы (паскаль)

[AndrewPl]

есть два массива A(10) i B(6). Среди элементов каждого с них
нет таких которые повторяются. Сделать новый массив, который
содержит те элементы первого массива, которые
не встречаются во втором массиве. Вывести два начальных массива и новый.

[CodeExpert]

Ну проходишь по элементам первого массива обновременно сравнивая элемент с каждым из элементов второго и флаг заведи, в случае отрицательности флага заносишь элемент в третий массив, элементарно ж...П.с. А почему иконка такая в теме, палец вниз...?

[AndrewPl]

Спасибо за подсказку)))ой,ха-ха...я думал,что то такой вопросительный знак))))))

Сообщение от CodeExpert

Ну проходишь по элементам первого массива обновременно сравнивая элемент с каждым из элементов второго и флаг заведи, в случае отрицательности флага заносишь элемент в третий массив, элементарно ж...П.с. А почему иконка такая в теме, палец вниз...?

а как именно одновременно сравнить элемент 1-о с каждым элементом 2-о?

[Grag]

for i:=0 to 9 do
  for j:=0 to 6 do
    if A[i] {теперь набор операторов сравнения} B[j] 
      then {обработка результата сравнения элементов массивов}

[AndrewPl]

Сообщение от Grag

for i:=0 to 9 do
  for j:=0 to 6 do
    if A[i] {теперь набор операторов сравнения} B[j] 
      then {обработка результата сравнения элементов массивов}

Благодарю)

а "теперь набор операторов сравнения" - это насколько я понял "<>"?

[Grag]

Это не только "<>", но и "<", ">" и пр. Просто выбирай тот, который нужен тебе!

[AndrewPl]

Сообщение от Grag

Это не только "<>", но и "<", ">" и пр. Просто выбирай тот, который нужен тебе!

ну мне по-моему просто нужен в моём случае именно"<>".Ещё раз спасибо))))

[Grag]

Для благодарности слева есть "весы".

[AndrewPl]

подскажите что неправильно:

const n=10;m=6;
var a:array[1..n]of integer;
 b:array[1..m]of integer;
 c:array[1..100]of integer;
   i,j,q,k:integer;
begin
clrscr;
for i:=1 to n do
 begin
 write('a[',i,']=');readln(a[i]);
 end;
writeln;
for j:=1 to m do
 begin
 write('b[',i,']=');readln(b[i]);
 end;
for i:=1 to n do 
 begin
 k:=0
 for j:= 1 to m do 
  begin
   if a[i]=b[j] 
   then k:=k+1;
  end;
if k:=0 then 
begin 
 c[q]:=a[i];
end;
end;
 for j:=1 to q do 
 begin
  writeln('c[',j,'[=',c[j];
 end;
end.

[Grag]

Непонятно вот это
c:array[1..100]of integer;
Зачем такая большая размерность, достаточно и 10, массив С не может быть больше массива А...
А вот тут вообще ничего не понял

for i:=1 to n do
begin
k:=0
for j:= 1 to m do
begin
if a[i]=b[j]
then k:=k+1;
end;
if k:=0 then
begin
c[q]:=a[i];
end;
end;
for j:=1 to q do
begin
writeln('c[',j,'[=',c[j];

У тебя условие если a[i]<>b[j], то формируешь массив C...
откуда берется индекс q массива С???