массивы, преоброзование, заполнение, сжатие массивов Опции

[jenka]

Есть такие задачи:
1. Сжать массив, удалив из него все элементы, модуль которых
находится в интервале [a, b]. Освободившиеся в конце массива элементы
заполнить нулями.
2. Преоброзовать массив таким образом, чтобы в первой его половине
распологались элементы, стоявшие в нечетных позициях, а во второй
половине-элементы, стоявшие в четных позициях.
3. Заполнить массив из пятнадцати элементов случайным образом
вещественными значениями х (0<х<105).

Очень нужна помощь с их решением. Помогите, плиз.

[volvo]

Так... А вот теперь у меня вопрос: кто-нибудь сможет написать программу, выполняющую второе задание, без использования доп. массива (если ответ "Да" - то просьба тоже скрывать программу, теги [ SPOILER ] [ /SPOILER ], дайте подумать остальным)... Мое решение:

Спойлер (Показать/Скрыть)

const
  n = 10;
type
  arrType = array[1 .. n] of integer;

procedure f(var arr: arrType; X: integer; is_odd: boolean; level: integer);
const
  odd_start: integer = n div 2;
  even_start: integer = n;
begin
  if level <= n then f(arr, arr[level], odd(level), succ(level));

  if is_odd then begin
    arr[odd_start] := X; dec(odd_start);
  end
  else begin
    arr[even_start] := X; dec(even_start);
  end;
end;

const
  // неважно, можно и ввод организовать...
  arr: arrType = (31, 32, 33, 34, 35, 36, 37, 38, 39, 40);

var i: integer;

begin
  f(arr, arr[1], true, 2);
  for i := 1 to n do write(arr[i]:4);
  writeln;
end.