a1 liczb losowych

program cw4_03;

{ Program zapełnia tablice losowymi liczbami }

{ i porządkuje je niemałejaco.    }

{ Katalog r4_01 : 4_03.pas    }

var

Liczby : array [1..20] of Byte;

I, Pom : Byte;

Ilosc : Byte;

Zamiana : Boolean;

procedurę WypiszTablice;

{ Procedura wypisuje tablice Liczby. } var

I : Byte; begin

for I :■ 1 to 20 do

Write (LiczbyCI], ' ');

Writeln;

end; {--------------WypiszTablice -}

begin

Randomize;

for I    1 to 20 do

LiczbyCI] Random (20) + 1;

Writeln; Write ('Tablica: ');

WypiszTablice;

Ilosc    20;

repeat

Zamiana    False;

Ilosc    Ilosc - 1;

for I    1 to Ilosc do

if (LiczbyCI] > LiczbyCI+1]) then begin

Pom    LiczbyCI]; LiczbyCI] LiczbyCI+1]; LiczbyCI+1]:- Pom;

Zamiana True; end;

until not Zamiana;

Write ('Tablica posortowana; ');

WypiszTablice;

Readln; end.