Program - Triedenie :)

Usporiadanie piatich, vopred definovaných čísel podľa veľkosti (od najmenšieho)

Program napísaný v jazyku v jazyku Pascal.

program triedenieOk;
//bublinkoveusporiadaniecisel

var
pole: array [1..5] of integer;
I,J,pom: integer;

begin
writeln;
pole[1]:=68;
pole[2]:=6;
pole[3]:=4;
pole[4]:=17;
pole[5]:=20;
for I:=4 downto 1 do
for J:=1 to I do
if pole [j]>pole [j+1] then begin
pom:=pole [j];
pole [j]:=pole [j+1];
pole [j+1]:=pom;
end;
for I:=1 to 5 do writeln (pole[i]);
readln;
end.

Hodnotenie užitočnosti článku:

• ← Program - Testovanie znalosti anglických slovíčok :)
• Program - Výmena obsahu dvoch premenných :) →