даны 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]

выводит что пересечением является z=(4,2,3,5,7,9,6) не зависимо какими элем-ми я заполняю x и y . В чем лажа?

program peres_mass;

{$APPTYPE CONSOLE}

uses
  SysUtils,windows;

const
  k=3;
  l=3;
  m=6;
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);
var
  x: Arr;
  y: Brr;
  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('пересечение массивов=', z[p]);
end;

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

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

[Lapp]

выводит что пересечением является z=(4,2,3,5,7,9,6) не зависимо какими элем-ми я заполняю x и y . В чем лажа?

Однако, такое у них пересечение.

Ты заполняешь одни x и y, а обрабатываешь совсем другие.

И вывод массива z тоже сделай в цикле, а то ты выводишь только последний элемент.