Temat jest zamknięty
Wszystko super, ale brak mi w tym programie części sortującej...
Program:
CODE-BOX
uses Crt;
const Ile_elem = 10;
var i, pomoc :byte;
przestaw :boolean;
Tab :array [1..Ile_elem] of ShortInt;
Procedure DrukTab;
var j:byte;
begin
for j:=1 to Ile_elem do Write(Tab[j]:4);
end;
Begin
Randomize;
ClrScr;
for i:=1 to Ile_elem do Tab[i] := Random(100) - 50;
WriteLn ('Zawartosc tablicy przed uporzadkowaniem');
DrukTab; WriteLn;
WriteLn ('**** SORTOWANIE ****');
{CZESC SORTUJACA}
WriteLn ('**** Koniec sortowania ****');
WriteLn('Zawartosc tablicy po uporzadkowaniu:');
DrukTab;
ReadLn
end.
