Дан одномерный массив, заполненный целыми случайными числами следующим образом: на нечетном порядковом месте должен находиться четный элемент, а на четном месте - нечетный. , ! (если можно с комментарием: ))

var a:array[1..100] of integer;

Begin

  randomize; {чтоб рандом был разный для каждого запуска програмы}

  for i:= 1 to 100 do

    if i mod 2 =0 then a[i] := 2*random(100)+1; {формула нечетного числа}

    else a[i]:=2*random(100);

End.

Есличто непонятно - пиши в сообщения, растолкую