даны 2 возрастающих массива. Найти их пересечение. Опции

[Insomnia]

даны 2 массива, причем x[1]<=x[2]<=..<=x[k] и y[1]<=y[2]<=..=y[l] . НАйти их пересечение, т.е. масиив z[1]<=z[2]<=...<=z[m] , содержайщий их общие элементы, причем кратность каждого элемента в массиве z равняется минимум из его кратностей в массивах x и y . Число действий порядка k+1.

Не совсем понятно условие с кратностями. Подскажите пожалуйста на простом примере что имелось ввиду.

[Insomnia]

 program peres_mass;

{$APPTYPE CONSOLE}

uses
  SysUtils,
  windows;

const
  k=2;
  l=3;
  m=5;
type
  TElem=integer;
  Arr=array [1..k] of TElem;
  Brr=array [1..l] of TElem;
  Crr=array [1..m] of TElem;
var
  x: Arr;
  y: Brr;
  z: Crr;
  i,j,p:TElem;

procedure creatZ ( var z: Crr; x: Arr; y: Brr);
var
  i,j,p:TElem;
begin
  p:=0;
  i:=1;
  j:=1;
  while (i<=k) and (j<=l) do
  if x[i]<y[j] then inc(i)
               else
    if x[i]>y[j] then inc(j)
                 else
   begin
     inc(p);
     z[p]:=x[i];
     inc(i);
     inc(j);
   end;
 writeln('пересечение 2_х массивов');
 for p:=1 to m do
 write(z[p]:2);
 writeln;
end;

begin
SetConsoleCP(1251);
SetConsoleOutputCP(1251);
writeln ('введите массив x');
for i:=1 to k do
readln(x[i]);
writeln ('введите массив y');
for j:=1 to l do
readln(y[j]);
creatZ (z,x,y);
readln;
end.

Работает теперь. Но в массиве z пустые ячейки заполняет нулями и выводит их вместе с найденным пересечением. Как мне их не выводить?

Сообщение отредактировано: Insomnia - 4.06.2011 23:33