Сдвинуть все элементы массива ** одну позицию вправо (циклически). Последний элемент...

Question

Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элемент должен оказаться на месте первого.В ПАСКАЛЕ

Comments

язык сразу указать бы

---

А сколько элементов в массиве? И вводятся ли они с клавиатуры?

---

5 ЭЛЕМЕНТОВ,ВВОДЯТСЯ С КЛАВИАТУРЫ

Answer 1

Var i:integer;
x:array[1..5]of integer;
begin 
for i:=1 to 5 do
begin
if i<>5 then read(x[i+1])
else read(x[1]);
end;
end.
Самое простое решение-считывать сразу в сдвинутом состоянии.