Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Пузырьковая сортировка массива
//fpc 3.0.0 {Пузырьковая сортировка массива} const n = 30; var a : array [1..n] of integer; var i, j, temp : integer; begin for i := 1 to n do begin a[i] := random(20); write(a[i], ' '); end; writeln; for i := 1 to n - 1 do begin for j := 1 to n - i do if a[j] > a[j+1] then begin temp := a[j]; a[j] := a[j+1]; a[j+1] := temp; end; for j := 1 to n do write(a[j], ' '); writeln; end; for i := 1 to n do write(a[i], ' '); writeln; end.
run
|
edit
|
history
|
help
0
Задание 27 (окончательный вариант) эффект и неэффект
zwro
Unicorn
2
Naloga 8: 10.9.2008
test27
Tri1
Pojavljivanje elemenata jednog niza u drugom nizu
programme 1
Tableau