Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
Shuffle number array
program Test; var number : integer; arr1 : array[0..20] of integer; index_num : integer; index_num2 : integer; temp : integer; begin randomize(); temp := 0; for number := 1 to 9 do arr1[number] := number; for number := 0 to 100 do begin index_num := random(9) + 1; index_num2 := random(9) + 1; temp := arr1[index_num]; arr1[index_num] := arr1[index_num2]; arr1[index_num2] := temp; end; for number := 1 to 9 do begin write(arr1[number]); write(' '); end; end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
test04
Homework 8
buscar_numero_V2_divisible_5
practica 3 ejercicio 3
Régua do Tanque Cilindrico Horizontal
virtuelna ravan-preklapanje krugova
s
practica 2 ejercicio 4
floor and ceiling
Perfect numbers
Please log in to post a comment.