Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо

@Тагир Манджиев · Регистрация: 08.05.2016

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

Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо. Указание: циклический сдвиг на одну позицию вправо - это присваивание каждого значения элементу справа, а последнего значения - первому элементу.

@JuriiMW · 22.12.2017, 10:51

Pascal

procedure RShift(var a : array of Integer) := for var i := a.Length-1 downto 1 do Swap(a[i-1],a[i]);
begin
  var a:=ArrRandomInteger(10);
  a.Println;
  RShift(a);RShift(a);
  a.Println;
end.

@eaa · 22.12.2017, 12:09

Pascal

begin
  var a := ArrRandomInteger(10);
  a.Println;
  a := a[2:] + a[:2];
  a.Println
end.

@Тагир Манджиев 5 / 5 / 0 Регистрация: 08.05.2016 Сообщений: 144
		1
	Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо 22.12.2017, 10:12. Показов 1941. Ответов 2 Метки нет (Все метки) Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо. Указание: циклический сдвиг на одну позицию вправо - это присваивание каждого значения элементу справа, а последнего значения - первому элементу. 0

Опции темы

Дан линейный массив из N целых чисел (N=10). Циклически сдвинуть элементы этого массива на две позиции вправо

Решение