Run Code
|
API
|
Code Wall
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Sorting
Program sorting; Var t:array [1..10] of integer = (5,7,1,9,10,3,2,6,8,4); i,j,k,tmp:integer; begin for i:= 1 to 10 do for j:= i to 10 do if (t[i]>t[j]) then begin tmp:=t[i]; t[i]:=t[j]; t[j]:=tmp; end; for k:=1 to 10 do write(t[k],' '); end.
run
|
edit
|
history
|
help
0
Looping (odd no.)
practica 7 ejercicio B10
Задача №3549. Замечательные числа - 5
Llena un arreglo (con while)
fgh
ProcedureTest1
test27
Comparar valores de una columna de una matriz
Fibonacijev niz
Количество пар кр и не кр 11 оптимизированное с логикой