Kód: Vybrať všetko

uses crt;
var pocet,i,q,j: integer;
    cisla: array[1..100] of integer;
begin
 clrscr;
 randomize;
  writeln('zadaj pocet cisel: ');
  readln(pocet);
   for i:=1 to pocet do
    begin
     cisla[i]:=random(100)+1;
     write(cisla[i],' ');
    end;
 {usporiadanie cisel}
  for i:=1 to pocet-1 do
   begin
    for j:=1 to pocet-1 do
     if cisla[j+1]<cisla[j] then
                           begin
                           cisla[j]:=q;
                           q:=cisla[j+1];
                           cisla[j+1]:=q;
                           end;
  end;
  {usporiadane cisla}
  writeln;
   for i:=1 to pocet do
    write(cisla[i],' ');


 readln;
end .

Kód: Vybrať všetko

 
...
  begin
    for j:=1 to pocet-1 do
     if cisla[j]>cisla[j+1] then
                           begin
                           q:=cisla[j];
                           cisla[j]:=cisla[j+1];
                           cisla[j+1]:=q;
                           end;
  end;
...