Циклический сдвиг массива

Циклический сдвиг массива

 Программа к учебнику информатики для 10 класса К.Ю. Полякова и Е.А. Еремина. Глава 8. Программа № 40. 

 Вход: 

   1 

   2

   3 

   4 

   5

 Результат: После сдвига влево:  2 3 4 5 1

   


program arrShift;

const N = 5;

var A: array[1..N] of integer;

    i, c: integer;

begin

  writeln ( 'Введите элементы массива:' );

  for i:=1 to N do

    read ( A[i] );

          c:= A[1];


  for i:= 1 to N-1 do 

    A[i]:= A[i+1];

          A[N]:= c;   


  writeln ( 'После сдвига влево: ' );

  for i:=1 to N do

    write ( A[i], ' ' );      

end.