Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элем?
Сдвинуть все элементы массива на одну позицию вправо (циклически). Последний элем??нт должен оказаться на месте первого.В ПАСКАЛЕ
Гость
Ответ(ы) на вопрос:
Гость 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.
Самое простое решение-считывать сразу в сдвинутом состоянии.
Не нашли ответ?
Похожие вопросы