mm tablice array[0..300] of Byte i w niej sa powtarzajace sie elementy. wiec chcialbym je wypisac w jakims memo, czy czymstam w formacie: liczba powtórzeń [spacja] element.
pomóżcie mi, bo sam nie daje z tym rady ;-(
0
0
Przy Byte łatwo:
var
powtorki :array [0..255] of integer;
tablica : array [0..300] of byte;
i : integer;
begin
//sprawdz czy nie trzeba zainicjalizowac tablicy powtorki zerami, chyba nie
for i:=low(tablica) to high(tablica) do
inc(powtorki[tablica[i]]);
Memo1.Lines.Clear;
for i:=low(powtorki) to high(powtorki) do
if powtorki[i]0 then //pomin te, ktorych wcale nie ma
Memo1.Lines.Add('Element: '+IntToStr(i)+' powtorzony '+IntToStr(powtorki[i])+' raz(y).');
pisane z głowy, sprawdź