[РЕШЕНО][Pascal] В данном линейном массиве поменять местами пары элементов, индексы которых при делении на 4 дают в остатке соответственно 1 и 0.

[Anotherknt]

В данном линейном массиве A[1..N] поменять местами пары элементов, индексы которых при делении на 4 дают в остатке соответственно 1 и 0. (Например, для массива 0, 1, 2, 3, 4, 5, 6, 7, 8 получим в результате 3, 1, 2, 0, 7, 5, 6, 4, 8.)
Прошу помочь не могу разобраться!

Решение в следующем сообщении

[supervine]

Значит надо поменять местами ячейки с индексами 1-4, 5-8 и тд...
То есть в каждой четверке поменять местами первую и последнюю ячейки.

Где то так:

for i:=0 to (n div 4)-1 do
 begin
  temp:=arr[i*4+1];
  arr[i*4+1]:=arr[i*4+4];
  arr[i*4+4]:=temp;
 end;

[Anotherknt]

Спасибо, все заработало!

Не подскажешь, можно решить данную задачу через операцию mod?

[Вадим Мошев]

Сообщение от Anotherknt

Не подскажешь, можно решить данную задачу через операцию mod?

Можно. Но вам дали наиболее оптимальный способ. Если всё же хотите через mod, во вот вам такой шаблон:

indexesAmount := 0;
for i:=1 to N do begin

  if i mod 4 = 0 then begin
    {запомнить этот индекс}
    inc(indexesAmount)
  end;

  if i mod 4 = 1 then begin
    {запомнить этот индекс}
    inc(indexesAmount)
  end;

  if indexesAmount = 2 then begin
    {обменять местами элементы массива с такими индексами}
    indexesAmount := 0
  end;
end;