Дан массив из N элементов. Составить программу, сортирующую по возрастанию все числа с нечётными индексами в массиве.

program zz1;

const n = 30; / / задаем количество чисел в массиве

var i, k, j, b, p:integer; / / задаем переменные целого типа

m, v:array [1 ... n] of integer;

begin

for i:=1 to n do / / получаем n чисел случайных и записываем их в массив

m[i]:=random (51);

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

writeln; / / переходим на новую строку для вывода ответа

for i:=1 to n do

if i mod 2 = 1 then begin p:=p+1; v[p]:=m[i]; end; / / переписываем в другой массив числа с нечетными индексами

for i : = 1 to p-1 do

for j : = 1 to p-i do

if v[j] > v[j+1] then begin / / сортируем

b : = v[j];

v[j] : = v[j+1];

v[j+1] : = b

end;

p:=0;

for i:=1 to n do

if i mod 2 = 1 then begin p:=p+1; m[i]:=v[p]; end; / / переписываем числа обратно

for i:=1 to n do / / выводим полученный массив на экран

write (m[i],' ');

end.