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
Урок 4 задача 6
nomer1
nomer8
Tugas1
Uji soal 1
Грицанова, стр. 26, пример 1.7
nomer6
звёздное небо и подсчёт кратных звёзд
practica 3 ejercicio B4
10