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

[jenka]

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

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

[мисс_граффити]

раз сохранение порядка необязательно:

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

program mas;
const n=15;
var arr: array [1..n] of integer;
i,dop,b,a:integer;
begin
randomize;
for i:=1 to n do
  begin
  arr[i]:=i;
  write(' ',arr[i]);
  end;
writeln;
if odd(n) then
 begin
 b:=n+1;
 a:=n div 2+1;
 end
else
 begin
 b:=n;
 a:=n div 2;
 end;
for i:=1 to a do
  if not(odd(i)) then
    begin
    dop:=arr[i];
    arr[i]:=arr[b-i+1];
    arr[b-i+1]:=dop;
    end;
for i:=1 to n do
  write(' ',arr[i]);
writeln;
writeln;
readln;
end.

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

Сообщение отредактировано: volvo - 2.11.2006 15:04

[Lapp]

раз сохранение порядка необязательно:

Что-та не таво-та...

Running "c:\home\home\ak\pas\th\th014\th014-miss-gr.exe "
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
1 15 3 13 5 11 7 8 9 10 6 12 4 14 2