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
Calculatrice 1.0
practica 7 ejercicio 5
ProcedureTest1
Program summa
3
Озвучка
Calculatrice 1.0
exVariant
перевод 16-ричного числа в 10-чное
task 3