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

@isaeva · Регистрация: 05.10.2012

Author24 — интернет-сервис помощи студентам

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

@shilko2013 · 22.05.2016, 15:38

Pascal

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.

@isaeva 2 / 2 / 1 Регистрация: 05.10.2012 Сообщений: 103
		1
	Осуществить циклический сдвиг элементов массива на k позиций вправо 22.05.2016, 13:44. Показов 5175. Ответов 1 Метки нет (Все метки) Дан линейный массив. Осуществить циклический сдвиг элементов массива на k позиций вправо. 0

	22.05.2016, 15:38

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

Решение