Осуществить циклический сдвиг элементов массива на k позиций вправо - Pascal ABC

Формулировка задачи:

Дан линейный массив. Осуществить циклический сдвиг элементов массива на k позиций вправо.

Решение задачи: «Осуществить циклический сдвиг элементов массива на k позиций вправо»

textual
                            Листинг программы 
                        

                            CONST n=50;
VAR a:array [1..n] of integer;
j,i,k:integer;
BEGIN
Readln (k);
For i:=1 to n do a[i]:=Random (100); //заполняем массив
For j:=1 to k do begin  //делаем сдвиг j раз
  k:=a[n]; //запоминаем последний элемент
  For i:=n downto 2 do  //выполняем сдвиг
    a[i]:=a[i-1];
  a[1]:=k;
end;
END.
                        

Оцени полезность:

9 голосов , оценка 4.111 из 5

Похожие ответы