РЕБЯТ, Помогите! Программа паскаль.Дан массив целых чисел. Сдвинуть его циклически на один элемент вправо.
РЕБЯТ, Помогите! Программа паскаль.Дан массив целых чисел. Сдвинуть его циклически на один элемент вправо.
Гость
Ответ(ы) на вопрос:
ГостьConst n = 10;
Var m : array[1..n] of Integer;
i,k : Integer;
Begin
For i:=1 to n do
Begin
m[i]:=i;
Write(m[i],' ');
end;
Writeln;
k:=m[n];
For i:=n downto 2 do m[i]:=m[i-1];
m[1]:=k;
For i:=1 to n do Write(m[i],' ');
Writeln;
end.
Не нашли ответ?
Похожие вопросы