Sortowanie rosnące (od minimum do maksimum)
Spoiler:
Spoiler:
Code: Select all
Export Function Tablica;
var tab1, tab2, tab3;
begin
tab1 := [9, 24, 1, 0, 12];
tab2 := SortListDesc(tab1);
tab3 := SortListAsc(tab1);
display_strings := tab2;
Wait(0$03);
display_strings := tab3;
end;
// tab2 = [24, 12, 9, 1, 0]
// tab3 = [0, 1, 9, 12, 24]