Turbo pascal - Program sortujący liczby rosnąco
program sortowanie_liczb; uses crt; const size=10; var tab: array[1..size] of integer; tmp: integer; i, j: integer; begin clrscr ; for i:=1 to size do begin write (i, ' element: '); readln (tab[i]); end ; for i:=size downto 2 do for j:=size downto size+2-i do begin if tab[j-1]>tab[j] then begin tmp:=tab[j]; tab[j]:=tab[j-1]; tab[j-1]:=tmp; end ; end ; writeln ; for i:=1 to size do begin writeln (tab[i],' '); end ; readkey ; end .
Komentarze
Prześlij komentarz