дан массив а(20) отсортировать в порядке убывания элементы стоящие на четных номерах
Answers & Comments
PopCop312
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]<a[j]) then k:=j; p:=a[i]; a[i]:=a[k]; a[k]:=p; end; for i:=1 to 20 do write(a[i],' '); end.
Answers & Comments
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]<a[j]) then k:=j;
p:=a[i];
a[i]:=a[k];
a[k]:=p;
end;
for i:=1 to 20 do
write(a[i],' ');
end.