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
Naloga 8: 10.9.2008
0
Вычисление sin(x) с помошью ряда Тейлора
Area of a Triangle
08 Ariketa WHILE
Membalik string
Excercise3
LUIZ ANTONIO RANGEL MUNIZ 60061122
formato_real
String compare