Vytvorené: 28. 10. 2013 Tlačiť
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.
![]() |
· Simulácie z fyziky· O Slovensku po slovensky· Slovenské kroje· Kurz národopisu· Diela maliarov· Kontrolné otázky, Domáce úlohy, E-testy - Priemysel· Odborné obrázkové slovníky· Poradňa žiadaného učiteľa· Rýchlokurz Angličtiny. Rozprávky (v mp3)· PREHĽADY (PRIBUDLO, ČO JE NOVÉ?)Seriály:· História sveta (1÷6)· História Slovenska (1÷5)· História módy (1÷5).
Členstvo na portáli
Poznámka pre autora
Copyright © 2013-2024 Wesline, s.r.o. Všetky práva vyhradené. Mapa stránky ako tabuľka | Kurzy | Prehľady |