Сейчас обсуждают

[rapeoh]

Уважаемые форумчане,напиште пожалуйста программу.
задание:

» Спойлер (нажмите, чтобы прочесть) «

Элементы массива циклически сдвинуть на k позиций влево.

[x0man]

самый простой

Код

const
  array_size  = 10;

var arr : array [0..array_size-1] of integer;
    i   : Integer;
    k   : Integer;
begin

  //Randomize();

  k := 4;

  // fill and print out array
  for i := 0 to (array_size - 1) do
    begin
      arr[i] := Random(1024);
      Write(arr[i], ' ');
    end; Writeln;

  while (k > 0) do
    begin
      for i := 0 to (array_size - 2) do
        begin
          //
          arr[i]  := arr[i]   xor arr[i+1];
          arr[i+1]:= arr[i+1] xor arr[i];
          arr[i]  := arr[i]   xor arr[i+1];
        end;
      Dec(k);
    end;

  // output result
  for i := 0 to (array_size - 1) do
    Write(arr[i], ' ');

  Readln;

end.