Даны два набора чисел (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 (n< =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, на каком языке нужен код?

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

могу вам на си или на питоне

о какой базе данных идет речь ?   microsoft access, *sql ?

возможно это и не то, что нужно, но

мне приходилось работать из mysql. там могут возникать ошибки таких видов:

- несоответствие введенных данных типу поля. (т.е. если тип поля int, а ты пытаешься ввести туда буквы)

- превышение лимита знаков в поле. (при создании поля можно устанавливать длинну этого поля)

- когда пытаешься в поле с пометкой  primary ввести такое значение, которое уже есть в базе.