формирование массива Опции

[Anti]

Помогите пожалуйста решить задачу!
Условие:
Дано 2 целочисельных массива А[N], B[N], среди которых нет элементов, которые повторяются. Сформировать массив, который содержит элементы, которые принадлежат массивам А и В одновременно (пересечение массивов)

[Адель]

k:=0;
for i:=0 to N-1 do
 for j:=0 to N-1 do begin
  if a[i]=b[j] then c[k]:=a[i];
  inc(k);
  end;

вроде так, за правильность не отвечаю)

[klem4]

if a[i]=b[j] then begin 
  c[k]:=a[i];
  inc(k);
end; 

[Anti]

Спасибо огромное! я извиняюсь за наглость, но не могли бы вы мне написать полную программу... Просто у меня с паскалем очень туго: плохо понимаю, хоть убейте!!

[Гость]

Пол:Мужской
Реальное имя:Оля
Тоже ничего не могу понять...

[Anti]

с полом протупила, извините...


Добавлено через 2 мин.
ПОМОГИТЕ плиз в полном виде написать эту задачу!! мне срочно нужно: вопрос жизни и смерти!!!Пожалуйста!!!!!

[klem4]

Тут есть все что тебе нужно знать для решения задачи: Массивы. Матрицы. Типичные задачи.

[Адель]

const N=6;
var
 k,i,j:integer;
 a,b: array  [0..N-1] of integer;
 c:array [0..2*N-1] of integer; //максимальный набор
begin
writeln('elementi A');
for i:=0 to N-1 do
readln(a[i]);
writeln('elementi B');
for i:=0 to N-1 do
readln(b[i]);
k:=0;
for i:=0 to N-1 do
 for j:=0 to N-1 do
  if a[i]=b[j] then begin c[k]:=a[i];
  inc(k);
  end;
for i:=0 to k-1 do
writeln(c[i]);
readln;
end.

ps когда срочно-есть "задачи на заказ"

[Anti]

Я тебя просто ОБОЖАЮ!!!!!!!!!!!!!!!!!!
С меня причитается...

Добавлено через 5 мин.
СПАСИБО ВСЕМ ЗА ПОМОЩЬ!