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

[jenka]

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

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

[Lapp]

volvo, в твоем решении используется рекурсия.. Ничего особенно против нее не имею, но..

1. Если идет речь о неиспользовании массива, то это скорее всего экономия памяти. Рекурсия же использует память очень активно.

2. Последовательными вызовами рекурсивной процедуры возможно сохранить в памяти весь массив, не организуя его.




С твоим замечанием согласен.
Вот исправленная версия..

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

const
  n=16;
  n2=n div 2;

type
  tElem=integer;

var
  i,j:integer;
  w:array[1..n] of tElem;
  a,b:tElem;

begin
  for j:=1 to n do w[j]:=j;

  for i:=1 to n2 div 2 do begin
    a:=w[i+1];
    b:=w[n-i];
    for j:=i+1 to n2-i do w[j]:=w[j+1];
    for j:=n-i-1 downto n2+i do w[j+1]:=w[j];
    w[n2+i]:=a;
    w[n2-i+1]:=b;
  end;
  for j:=1 to n do Write(w[j]:4); WriteLn;
  ReadLn
end.