Turbo Pascal

[миляуша2013]

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

[VIK_aka_TOR]

если для обратным по возрастанию, значит для обычных по убыванию
х и 1/х , чем больше х, тем меньше обратное ему

for i:=1 to n div 2 do
   for j:=1 to n div 2 - 2 do
      if (mas[j*2] > mas[j*2 + 2]) then
         begin
            buf := mas[j*2];
            mas[j*2] := mas[j*2 + 2];
            mas[j*2 + 2] := buf;
         end;

наверное так... если я с обратными не попутал...

[миляуша2013]

а не нужно выводить четные позиции массива как a[i] mod 2 = 0 ???

[VIK_aka_TOR]

Сообщение от миляуша2013

а не нужно выводить четные позиции массива как a[i] mod 2 = 0 ???

не путайте позицию со значением...
для проверки значения на четность, у вас подходит, я же для вывода четных позиций, попросту поделил нацело размерность массива, а элемент беру как индекс*2 то бишь будет 1*2, 2*2 , 3*2 и т.д...
сортировка обычным пузырьком тут...

[миляуша2013]

спасибо большое)

[миляуша2013]

а как быть если нечетные позиции? и можно ли написать 1/mas[j*]<mas[j*2+2]

[VIK_aka_TOR]

для нечетных примерно так

for i:=1 to n do
   for j:=1 to n -2 do
     if j mod 2 <> 0 then   // если текущее j нечетное то 
        if (mas[j] > mas[j + 2]) then 
          // кусок кода с обменом мест значений элементов массива

[миляуша2013]

простите конечно за множество вопросов( может я что то не так делаю, но когда я вывожу массив отсортированным,почему то последняя четная позиция остается без изменений( как быть?

[VIK_aka_TOR]

Сообщение от миляуша2013

простите конечно за множество вопросов( может я что то не так делаю, но когда я вывожу массив отсортированным,почему то последняя четная позиция остается без изменений( как быть?

for i:=1 to n div 2 do
   for j:=1 to n div 2 - 1 do // или for j:=1 to (n - 2) div 2 do
      if (mas[j*2] > mas[j*2 + 2]) then
         begin
            buf := mas[j*2];
            mas[j*2] := mas[j*2 + 2];
            mas[j*2 + 2] := buf;
         end;

описку малость сделал...

[миляуша2013]

работает=)спасибо вам огромное)