Дан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах

Var a:array[1..20] of integer;
i,j,k,p:integer;
begin
for i:=1 to 20 do
read(a[i]);
for i:=1 to 19 do begin
  k:=i;
  if odd(i) then continue;
  for j:=i to 20 do
  if (a[k]  p:=a[i];
  a[i]:=a[k];
  a[k]:=p;
end;
for i:=1 to 20 do
write(a[i], );
end.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.