Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Blog
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.
La calculatrice
Mengulang kalimat n kali
first
http://rextester.com/UVQV94798
Урок 6. Задача 1 (1525). Номер самого большого числа
24/10/17
Задача 2 урок не из учебника
9
Calculatrice 1.0
tgtrg
Please log in to post a comment.