Pagalbos programuojant delphi

Yra memo1, kiekvienoje naujoje eiluteje yra daug skaiciu, pvz:

10

55

971

10

12

7

51

9

10

reikia rasti daugiausiai kartu pasikartojanti skaiciu, gal galit padeti, nes praktiskai nezinau kaip parasyti, zinau kaip padaryti per masyva - bet delphyje as ju nemoku, jeigu kas galite, parasykite funkcija :)

kodo nerasysiu nes tam skirta google

o siaip paprasciausiai pakoduoji algoritma, kuris:

1) paima skaiciu

2) praeina per visus skaicius ir suranda kiek is viso pasikartojimu

3) Jeigu pasikartojimu daugiau uz MAX pasikartojimu, issaugai ta skaiciu

4) Jei skaiciu dar yra gristi i punkta 1

5) spausdini ta skaiciu

gali but du ir daugiau skaiciu su tiek pat MAX pasikartojimu, tai teks biski pasikoreguot paciam algoritma :)