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

Примечание. При циклическом сдвиге на одну позицию значение последнего элемента массива записывается в элемент с индексом 0.

Question

Информатика

Степуха

6 августа, 10:15

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

Примечание. При циклическом сдвиге на одну позицию значение последнего элемента массива записывается в элемент с индексом 0.

+1

Ответы (1)

Знаете ответ?

Спиридон · 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 in+1 then begin zn2:=a[i]; a[i]:=zn; zn:=zn2; end;

End;

for i:=1 to n do Write (a[i],' ') ;

End.