даны два комплекта чисел (5,6,1,2,3) и (5,8,6,0,3) написать программку , которая

Uses crt;
const mn1: array[1..5] of byte =(5,6,1,2,3); Объявляем наши комплекты
const mn2: array[1..5] of byte =(5,8,6,0,3); Объявляем наши комплекты

var i,c,n:integer;

begin
clrscr;
  write('Набор1 до обработки:');  
  for i:=1 to 5 do write(mn1[i]:3);  Выводим  на экран набор 1 
writeln;
writeln;

 write(' Набор2 до обработки: :'); 
  for i:=1 to 5 do write(mn2[i]:3);  Выводим  на экран набор 2

writeln;
 writeln; 

n:=1; c:=0;
  while (nlt;=5) do         В цикле сравниваем n-й элемент набора1 с
  Begin                           каждым   элемент набора2  
for i:=1 to 5 do begin
  if (mn1[n]=mn2[i]) then  
begin
  c:=c+1;    Если отыскали совпадение до увеличиваем кол-во совпадающих пар чисел
  mn1[n]:=0;          И записываем на их место нули
mn2[i]:=0;

break;  перебегаем к след элементу набора1
end;
  end;

Inc(n);
End;

 Выводим результаты обработки

write('Количество совпадающих пар чисел:',c);

writeln;
write(' Набор1 после обработки :');
for i:=1 to 5 do write(mn1[i]:3);
writeln;
writeln;

  write(' Набор2 после обработки :');
for i:=1 to 5 do write(mn2[i]:3);
  readkey; пауза до нажатия на всякую кнопку
end.

GalyaZelenina, на каком языке нужен код?

и в задачке не очень понятное условие: совпадают на позициях? или вообщем если есть совпадения?

могу для вас посодействовать на си либо на питоне