Question

Упорядочить одномерный массив по возрастанию, методом обмена. (по возрастанию должны быть только нечётные элементы) (программа Паскаль)

Answer 1

uses crt;
const max=100;
var a:array[1..max] of integer;
    n,i,j:byte;
    x:integer;
begin
clrscr;
randomize;
repeat
write('Размер массива n=');
readln(n);
until n in [1..max];
writeln('Исходный массив:');
for i:=1 to n do
 begin
  a[i]:=random(20)+1;
  write(a[i]:3);
 end;
writeln;
writeln;
for i:=1 to n-1 do
for j:=i+1 to n do
if odd(a[i])and(odd(a[j]))and(a[i]>a[j]) then
 begin
  x:=a[i];
  a[i]:=a[j];
  a[j]:=x;
 end;
writeln('Нечетные элементы отсортированы по возрастанию:');
for i:=1 to n do
if odd(a[i]) then
 begin
  textcolor(12);
  write(a[i]:3);
 end
else
 begin
  textcolor(15);
  write(a[i]:3);
 end;
textcolor(15);
readln
end.