Umiestnenie súboru www.TrSek.com/zadania/triedenie_vyberom.pas{ TRIEDENIE_VYBEROM.PAS Copyright (c) Pheo }
{ Program na zostupné usporiadanie èíselného po¾a triedením výberom }
{ pod¾a maxima alebo minima (vzostupne). }
{ }
{ Datum:24.04.2005 http://www.trsek.com }
program triedenie_vyberom;
type prvok=integer;
index=0..100;
var i,j,k,n:index;
x:prvok;
a: array[index] of prvok;
begin
write('pocet prvkov:');
read(n);
writeln('Zadaj ',n,' prvkov: ');
for i:=1 to n do
begin
write(i,'. :');
read(a[i]);
end;
for i:=1 to n-1 do
begin
k:=i;
x:=a[i];
for j:=i+1 to n do
if a[j]<x then
begin
k:=j;
x:=a[j];
end;
a[k]:=a[i];
a[i]:=x;
for j:=1 to n do write(a[j],','); { toto tu nemusi byt }
writeln; { priebezny vypis }
end;
writeln('Zoradenie podla velkosti:');
for i:=1 to n do write(a[i],',');
writeln; readln;
end.