Question

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

Answer 1

var
  a: array [1..100] of integer;
  i,j,n,k: integer;

begin
  readln(n);
  for i:= 1 to n do readln(a[i]);
  for i:= 1 to n do if Odd(i) then
    for j:= 1 to n-i do if Odd(j) then
      if a[j]>a[j+2] then begin
        k:= a[j];
        a[j]:= a[j+2];
        a[j+2]:= k
      end;
  for i:= 1 to n do write(a[i],' ')
end.