Поиск оптимального пересечения сотен массивов

[BDA]

Мысли вслух...
Мы же можем почистить массивы. Удалить в той тысяче массивов все числа, которых нет в поисковом массиве, а в поисковом массиве удалить все числа, которых нет в тысяче. Теперь останутся только числа, которые одновременно есть в поисковом массиве и в той заметно поредевшей тысяче. А вот теперь нужно думать дальше

[PathTheir]

Для поиска 3 самых часто встречающихся чисел, можно вот так сделать. Надеюсь, код понятен.

type
	TArr = array [1..100] of record
		value, cnt : Integer
	end;

function PopMax(var a : TArr; const n : Integer) : Integer;
var
	m, i : Integer;
begin
	m := 1;
	for i := 2 to n do 
		if a[i].cnt > a[m].cnt then m := i;
	
	PopMax := a[m].value;
	a[m].cnt := -1
end;

var
	n, m, i, j, k : Integer;
	b : array [1..100, 1..100] of Integer;
	a : TArr;

begin
	ReadLn(n);
	for i := 1 to n do begin
		Read(a[i].value);
		a[i].cnt := 0
	end;

	ReadLn(m);
	for i := 1 to m do 
		for j := 1 to n do 
			Read(b[i, j]);


	for k := 1 to n do
		for i := 1 to m do
			for j := 1 to n do 
				if b[i, j] = a[k].value then begin
					Inc(a[k].cnt); Break;
			end;
	
	WriteLn(PopMax(a, n), ' ', PopMax(a, n), ' ', PopMax(a, n))
end.

http://ideone.com/CGWRe2

[PathTheir]

Но вывод конечно и изменить можно

for i := 1 to c do {где c - кол-во чисел, которое нужно вывести}
    WriteLn(PopMax(a, n), ' ')

[Puhovoi]

Спасибо, часто встречающиеся найти как раз не проблема, да в контексте задачи не совсем актуально.

[Poma][a]

Не понял.. Вам нужно

- найти 8 или N элементов исходного массива, которые бы присутствовали в максимальном количестве остальных массивов.

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

[BDA]

Poma][a, например, числа 5 6 7 встречаются по 100 раз, но в разных массивах (пересечение множеств номеров массивов пусто), а числа 1 2 3 встречаются 3 раза, но присутствуют одновременно в одних и тех же массивах. Ответом должно быть 1 2 3.

[PathTheir]

За пояснение спасибо. Стоило наверное конкретизировать задачу в первом посте, потому что не сразу очевидно, что требуется.

[evg_m]

мысли вслух...

это конечно же идеальный случай.

[Poma][a]

Poma][a, например, числа 5 6 7 встречаются по 100 раз, но в разных массивах (пересечение множеств номеров массивов пусто), а числа 1 2 3 встречаются 3 раза, но присутствуют одновременно в одних и тех же массивах. Ответом должно быть 1 2 3.

Спасибо, но понятнее не стало..
Что нужно вывести при тесте :

1 2 3 4 5 6
1 2 3
4 1 0
4 2 0
4 3 0
4 4 0
4 5 0
4 6 0

А при :

1 2 3 4 5 6
1 2 0
2 3 0
4 5 6
1 2 0
2 3 0

?

А при :

1 2 3 4 5 6
1 2 0
2 3 0
4 5 6
1 2 0
2 3 0
4 5 6

[Puhovoi]

При N=3:

1 2 3

4 5 6

4 5 6
4 5 6

Не конкретно числа, а индексы дочерних массивов, где они содержаться, конечно.