Run Code
|
API
|
Code Wall
|
Users
|
Misc
|
Feedback
|
Login
|
Theme
|
Privacy
|
Patreon
shift array to left_new
//fpc 3.0.0 program HelloWorld; var temp, i : integer; a : array[1..5] of integer = (1,2,3,4,5); begin for i := 1 to 5 do write( a[i], ' '); writeln; temp := a[1]; for i := 1 to 4 do a[i] := a[i+1]; a[5] := temp; for i := 1 to 5 do write(a[i], ' '); end.
run
|
edit
|
history
|
help
0
Please
log in
to post a comment.
444555666
09 Ariketa WHYLE
3e22
Урок 2 задача не из учебника: 4-значное число
test04
Project Euler 17 : Number letter count (1000)
Procedimientos Leer - Poblar - Mostrar
Поиск совершенного числа
zad27-notoptimal
[DE/GER] Caesar Chiffre (Entschlüsseln)
Please log in to post a comment.