Создайте целочисленный массив размерностью N. Введите значения элементов массивов с...

Question

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

Answer 1

Var
n,k,i,i2,zn,zn2:integer;
a:array[1..100] of integer;
Begin
Readln(n,k);
for i:=1 to n do Read(a[i]);
zn:=a[1];
for i2:=1 to k do begin
a[1]:=a[n];
for i:=2 to n+1 do 
if i<>n+1 then begin zn2:=a[i]; a[i]:=zn; zn:=zn2; end;
End;
for i:=1 to n do Write(a[i],' ');
End.

Comments

Здесь правда индексы не от нуля, но работает всё так же. Да и в паскале как-то не принято нулевые индексы делать. Можно, но не принято