Разработка программ, связанных с формированием и обработкой одномерных массивов

var
  a: array[1..10] of integer;          //объявляем массив из 10 элементов
  i,j,tmp: integer;                    //объявляем переменные
begin
  for i:=1 to 10 do                    //запускаем цикл от 1 до 10
  begin
    write('Введите элемент массива: ');//приглашение на ввод
    readln(a[i]);                      //считываем элемент
  end;
  // сортировка линейная (отбором)
  for i:=1 to 10-1 do                  //цикл проходит по элементам
    for j:=i+1 to 10 do                //для сравнения
    if (i mod 2<>0)and(j mod 2<>0)and(a[i]<a[j]) then //если индексы нечетные и 
                                               //предыдущий меньше последующего
    begin
      tmp:=a[i];                       //производим обмен
      a[i]:=a[j];
      a[j]:=tmp;
    end;
  writeln('Преобразованный массив:');
  for i:=1 to 10 do                   //выводим отсортированный массив
    write(a[i],' ');
end.