profil

program sortowanie bąbelkowe

poleca 85% 752 głosów

Treść
Grafika
Filmy
Komentarze

program bubble;
uses CRT;
var i,n,j,a:LongInt;
begin
For i:=1 to n do
begin
For j:=2 to n do
begin
If a[j-1]>a[j] then
begin
zamiana(a[j-1],a[j]);
end If;
end For;
end For;
end.

Podoba się? Tak Nie