profile
Опубликовано 6 лет назад по предмету Информатика от брроо

Создайте целочисленный массив размерностью N. Введите значения элементов массивов с клавиатуры. Выполните циклический сдвиг значений элементов массива на k позиций вправо (в сторону увеличения индексов элементов). Выведите на экран значения элементов массива после выполнения операции циклического сдвига.
Примечание. При циклическом сдвиге на одну позицию значение последнего элемента массива записывается в элемент с индексом 0.

  1. Ответ
    Ответ дан ZaXoD
    var
    n,k,i,i2,zn,zn2:integer;
    a:array[1..100] of integer;
    Begin
    Readln(n,k);
    for i:=1 to n do Read(a[i]);
    zn:=a[1];
    for i2:=1 to k do begin
    a[1]:=a[n];
    for i:=2 to n+1 do 
    if i<>n+1 then begin zn2:=a[i]; a[i]:=zn; zn:=zn2; end;
    End;
    for i:=1 to n do Write(a[i],' ');
    End.
    1. Ответ
      Ответ дан ZaXoD
      Здесь правда индексы не от нуля, но работает всё так же. Да и в паскале как-то не принято нулевые индексы делать. Можно, но не принято
Самые новые вопросы