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

[jenka]

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

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

[volvo]

Почти... Нужно обратное действие:

if NOT( (a<c)and(c<b) ) then begin

Знак тоже надо исправить на a<c...

[Lapp]

Недремлющий volvo всегда на посту . Спасибо!
Сначала я использовал конструкция с NOT, потом решил ее упростить, но забыл сменить and на or .
Исправленная версия:

var 
  a,b,c:tElement;  
  w:array[1..n] of tElement;
.............
  j:=0;
  for i:=1 to n do begin
    c:=w[i]
    if (a>c)or(c<b) then begin
      Inc(j);
      w[j]:=c
    end
  end;
  for i:=j+1 to n do w[i]:=0;