Príklad - výskyt čísel v poli – Pascal – Fórum – Programujte.com

Ahojte, pomohol by mi niekto s týmto príkladom ? potrebujem zostaviť program, ktorý náhodne vyberie 1000 čísel z intervalu (1,20). program následne má vypísať najčastejšie sa vyskytujúce číslo v poli a zároveň vypísať, koľkokrát sa toto číslo vygenerovalo. prvú časť programu mám, s druhou časťou si neviem poradiť.. bol by som veľmi vďačný, ak mi pomôžete  :) vopred ďakujem.

tu je zatiaľ prvá časť, ktorú mám:

program generovanie;
uses crt;
var i:integer; cisla:array[1­..1000] of integer;
begin
randomize;
for i:=1 to 1000 do
begin
cisla[i]:=ran­dom(20)+1;
writeln(i,'. ','vygenerovane cislo je: ',cisla[i]);
end;
readln();
end. 

Kdyz mas pevne dany rozsah, tak byt tebou vyuziju "histogram". Tj pole od 1 do 20, vynulovat a inkrementovat indexy podle vygenerovaneho cisla. Pak uz jen najdes maximum.

#1 Tomas
na tu druhou část uděláš pole s názvem třeba POCETNOSTI s počtem prvků 20 a typ Integer. pak uděláš cyklus i:=1..1000 a uvnitř cyklu pro každý číslo cisla[i] přičteš jedničku v poli POCETNOSTI s korespondujicim indexem tedy inc( POCETNOSTI[cisla[i]] )  pak už jenom zjistíš který z čísel v poli POCETNOSTI je nejvetsí což bude další třetí cyklus

ďakujem za odpovede, teraz to už funguje, ale chcem sa pre istotu ešte opýtať, čo ak budem mať teraz interval nie (1,20) ale (1,2000) ? nemalo by asi zmysel pridávať tam všetkých 2000 čísel, neexistuje náhodou nejaký spôsob, ako to urýchliť ?

#4 Tomas
2000 stale neni zadny velky pocet. Az to bude libovolny integer, tak uz to bude horsi. To uz bys musel pouzit nejaky binarni strom

ďakujem za pomoc, problém vyriešený, nabudúce budem vedieť ako na to :)