{ BUBLINKOVE_TRIEDENIE.PAS Copyright (c) Pheo } { Program na zostupné usporiadanie číselného poľa bublinovým } { triedením. } { } { Datum:24.04.2003 http://www.trsek.com } program bublinkove_triedenie; type prvok=integer; index=0..100; var i,j,k,n:index; x:prvok; a: array[index] of prvok; begin writeln('Program na zostupne usporiadanie ciselneho pola bublinovym triedenim.'); write('Zadaj pocet prvkov:'); readln(n); writeln('Zadaj ',n,' prvkov: '); for i:=1 to n do begin write(i,'.:'); readln(a[i]); end; for i:=1 to n do begin for j:=1 to N-1 do if a[j]