Подскажите алгоритм для задачи Опции

[Igor]

Что то никак не могу сформулировать алгоритм.

В файле целого типа расставить в обратном порядке все значения кратные 3.

звучит просто но не могу понять, как?

нужен только алгоритм, но если кто напишет прогу буду сильно благодарен.

[Michael_Rybak]

Заводишь переменную x, которая будет проходить по числам, кратным 3, в обратном порядке. В начале х = n, т.е. указывает на последний элемент массива.

Идешь циклом от 1 до n, формируя новый массив. Если число не кратно 3, просто копируешь. Каждый раз, когда встречаешь кратное 3 - двигаешь х влево до тех пор, пока не встретишь первое кратное трем, и пишешь его вместо текущего:

begin
  x := n;
  for i := 1 to n 
    if a[i] mod 3 <> 0 then
      b[i] := a[i];
    else begin
      while x mod 3 <> 0 do
        Dec(x);
      b[i] := a[x]; 
      Dec(x); //сместили еще на 1 влево, чтобы в следующий раз искать дальше, а не остановится навсегда в этом месте
    end;
end;

Если надо, копируешь потом массив b обратно в a.