Массивы., 2 задачи на массивы (Turbo Pascal) Опции

[studentRU]

Доброго всем времени суток.

Помогите пожалуйста решить 2 задачи на массивы. (Turbo Pascal)

1. Дан массив D(n), n - кратно 3. Поменять местами 1 и 3 элементы, 4 и 6, 7 и 9 и т.д.

-------------------------------------------------------------------------------------------------------
-------------------------------------------------------------------------------------------------------

2. Добавить по элементу после каждого второго элемента.

Спасибо...

[Айра]

тьфу, точно.. извиняюсь.. сейчас переделаю)

добавлено:

  i:=1;
  while i<=n-2 do
    begin
      t:=a[i];
      a[i]:=a[i+2];
      a[i+2]:=t;
      inc(i,3);
    end;

Сообщение отредактировано: Айра - 15.12.2008 21:20