Элементы исходного массива циклически сдвинуть на 6 позиций вправо

@annuchka · Регистрация: 16.11.2010

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

5. Задать массив 10 чисел.Воспользовавшись вспомогательным массивом, элементы исходного массива циклически сдвинуть на 6 позиций вправо.

@ПавелКалашников · 12.01.2012, 10:40

5. Задать массив 10 чисел.Воспользовавшись вспомогательным массивом, элементы исходного массива циклически сдвинуть на 6 позиций вправо.

Pascal

uses crt;
var i, j : integer;
     a, b : array [1..n] of integer;
begin
  for i := 1 to 10 do
     read(a[i]);
  for i := 1 to 10 do
  begin
     j := i - 6;
     if (j <= 0) then
      j := 5 - j;
     b[j] := a[i];
  end;
  for i := 1 to 10 do
    a[i] := b[i];
  for i := 1 to 10 do
    write(a[i], ' ');
end.

@annuchka 0 / 0 / 0 Регистрация: 16.11.2010 Сообщений: 60
		1
	Элементы исходного массива циклически сдвинуть на 6 позиций вправо 12.01.2012, 01:44. Показов 1476. Ответов 1 Метки нет (Все метки) 5. Задать массив 10 чисел.Воспользовавшись вспомогательным массивом, элементы исходного массива циклически сдвинуть на 6 позиций вправо. 0

	12.01.2012, 10:40

Элементы исходного массива циклически сдвинуть на 6 позиций вправо

Решение