Упорядочить первую половину одномерного массива по возрастанию элементов с четными индексами - Pascal ABC

Формулировка задачи:

Помогите пожалуйста с заданием: Дано одномерный массив. Упорядочить его первую половину по возрастанию элементов с парными индексами. Я не могу сделать вторую часть, с элементами с парными индексами. Вот мой код:
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do begin
  a[i]:=random(50)-25;
  write(a[i]:4);
 end;
 writeln;
 for i:=2 to 10 do begin
  j:=i;
  while (a[j]<a[j-1])  do begin
   s:=a[j];
   a[j]:=a[j-1];
   a[j-1]:=s;
   dec(j);
   if j=1 then break;
  end;
 end;
 
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.

Код к задаче: «Упорядочить первую половину одномерного массива по возрастанию элементов с четными индексами - Pascal ABC»

textual
var
 a:array[1..20]of integer;
 i,s,j:integer;
begin
 randomize;
 for i:=1 to 20 do
  begin
   a[i]:=-25+random(50);
   write(a[i]:4);
  end;
 writeln;
 for i:=2 to 9 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
   s:=a[i];
   a[i]:=a[j];
   a[j]:=s;
  end;
 for i:=1 to 20 do write(a[i]:4);
 readln;
end.

6   голосов, оценка 4.333 из 5


СОХРАНИТЬ ССЫЛКУ