Заполнить массив n элементов , затем сохранить в массив n2 четные элементы деленные на 2 , а четные умноженные на 2 . вывести на экран исходный массив , после чего с первого массива вычесть 2 и вывести на экран изменённый первый массив.

Const N=10;
var i, j: byte;
    n1, n2: array [1..N] of integer;
begin
     j := 1;
     for i := 1 to N do
     begin
          n1[i] := random(100);
          writeln('n1[', i, '] => ', n1[i]);
     end;
     writeln('');
     for i := 1 to N do
     begin
         if (n1[i] mod 2 = 0) then
         begin
              n2[j] := n1[i];
              inc(j);
              n1[i] := n1[i] * 2;
         end;
     end;
     for i := 1 to N do
          writeln('n1[', i, '] => ', n1[i]);
     for i := 1 to j do
          writeln('n2[', i, '] => ', n2[i]);
end.

Если я правильно понял, то вот так =)