Dze je subor www.TrSek.com/zadania/serad.pas{ SERAD.PAS Copyright (c) Pavel Patak }
{ Program si vymysli 100 cisel a nasledne ich seradi. }
{ }
{ Datum:28.10.2004 http://www.trsek.com }
Program Serad;
Uses Crt;
Const Pocet = 100;
MaxHodnota=MaxInt;
Var I,J,Pom : Integer;
Hodnoty : array[1..100] of Integer;
Begin
ClrScr;
Randomize;
For I:=1 to Pocet do {Generujeme nahodne hodnoty, muzeme tez pouzit Readln...}
Hodnoty[I]:=Random(MaxHodnota);
For J:=1 to Pocet do {Cely cyklus musime zopakovat, po prvnim je jiste jenom spravne poradi posledniho prvku}
For I:=1 to Pocet-1 do
if Hodnoty[I]>Hodnoty[I+1] then {V pripade prehozenych prvku obratime poradi}
begin
Pom:=Hodnoty[I];
Hodnoty[I]:=Hodnoty[I+1];
Hodnoty[I+1]:=Pom;
end;
For I:=1 to Pocet do {Vypiseme vysledek}
Write(Hodnoty[I]:10);