Дан массив из N элементов. Составить программу , сортирующую по возрастанию все числа с нечётными индексами в массиве.
Answers & Comments
yuliagalvar 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.
Answers & Comments
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.