Сложная задачка

[SerobGrigoryan]

Последовательность объектов a1, a2,…, a n называется
"Периодический", если он состоит только из повторяющихся подмножеств ( например 1,4,5,6,1,4,5,6....1,4,5,6).
Требуется выяснить периодическая ли последовательность B(b1,b2,b3,...bn) состоящая из реальных чисел. Если ответ положительный ,то выяснить ее период. Если отрицательный , то выяснить подмножество , которое встречается чаше в последовательности B. Изначально нужно записать в файл массив B , оттуда загрузить в оперативную память параллельно выводя на экран.Повторяющееся подмножества выразить другими цветами.
Вот такое вот интересное задание , буду очень благодарен за помощь , программа может быть написанна на любом языке.Очень хотелось ,чтобы и объяснения были , потому-что задача для меня очень интересная.
Заранее спасибо за помощь.Я смог написать программу которая проверяет переодческая ли последовательность на языке TP

Program Kursyin4;
Uses Crt;
Type Vector = Array [1..99] of real;
Var X : Vector; i,j,t,n : integer;k:real;p:boolean;
f:file of real;
Begin
Assign(f,'massiv');
Rewrite(f);
p:=true;
Repeat
ClrScr;
Write('n>1='); Readln(n);
Until n>1;
For i:=1 to n do begin
Write('X',i,' '); Readln(k);
write(f,k ) end;
close(f);
Reset(f);
For i:= 1 to n do begin
read(f,x[i]);write(x[i]:8:2,' ') end;
writeln;
j:=2;
While ((X[j]<>X[1]) and (j<n)) do
j:=j+1;k:=j;t:=j-1;j:=j-1;
if (x[j+1]=x[1]) then begin
While ((j<n) and p) do
begin
j:=j+1;i:=1;k:=k+t;
While ((j<k-1)and p) do begin
if (x[j+1]<>x[i+1]) then p:=false;
j:=j+1;i:=i+1 end
end end else p:=false;
if p
then write('Hajordakanutyun@ ',t,' parberutyamb parberakan hajordakanutyun e')
else write('Hajordakanutyun@ parberakan che');
readln;readln;

End.

[WorldMaster]

Сообщение от SerobGrigoryan

Очень хотелось ,чтобы и объяснения были

Так если вы сами смогли написать программу:

Сообщение от SerobGrigoryan

Я смог написать программу которая проверяет переодческая ли последовательность на языке TP

значит прекрасно понимаете как это сделать. Какие еще нужны объяснения?

[SerobGrigoryan]

Я написал лёгкую часть задания, остольное не получается

[WorldMaster]

Сообщение от SerobGrigoryan

Я написал

Скопипастили откуда то ... Если вы даже не пытаетесь что то делать то вам только раздел фриланс поможет.

[evg_m]

1. находим самый частый элемент.
2. самая частая последовательность будет начинаться с оного(п.1)
3. находим частоты последовательностей из двух элементов (не всех а только тех где первый элемент из п.1(самый частый)) у остальных частоты заведомо будут меньше.
4. если самая частая последовательность из двух менее часта чем самый частый элемент то
ОТВЕТ самая частая последовательность состоит из одного элемента(см. п.1 )
иначе проверяем последовательности из трех (начинающиеся с самой частой последовательности двух)
5. и т.д. для четырех пяти ... до получения ОТВЕТ(выполнения данного условия п.4.)

[SerobGrigoryan]

Сообщение от WorldMaster

Скопипастили откуда то ... Если вы даже не пытаетесь что то делать то вам только раздел фриланс поможет.

Если хочешь помочь то помогай , если нет тебя не просили свои догадки тут писать

[WorldMaster]

Сообщение от SerobGrigoryan

Если хочешь помочь то помогай

С чем помочь то?? У вас нет вопросов и нету каких то наработок которые не работают. Вы вывалили какой то кусок кода и требуете чтобы кто то сделал за вас всю работу.