Question

Câu 4: (4,0 điểm): Sắp xếp mảng

Cho mảng N gồm k phần tử (phần tử là các số), viết chương trình xếp lại mảng và in kết quả lên màn hình sao cho các số chẵn tăng dần ở đầu mảng, các số lẻ giảm dần ở cuối mảng.

Test	Nhập số k	Dãy B	Kết quả (In ra màn hình)
1	5	1; 2; 20; 10; 9	2; 10; 20; 9; 1

pascal nha.

 

Answer 1

program CodeTranslation;

const
  nmax = 1000007;

var
  a: array[1..nmax] of Int64;
  b: array[1..nmax] of Int64;

function cmp(a, b: Int64): Boolean;
begin
  if (a mod 2 = 0) and (b mod 2 = 0) then
    Result := a < b
  else if (a mod 2 = 0) and (b mod 2 <> 0) then
    Result := a > b
  else if (a mod 2 <> 0) and (b mod 2 <> 0) then
    Result := b < a;
end;

var
  n, i: Int64;

begin
  ReadLn(n);
  for i := 1 to n do
  begin
    ReadLn(a[i]);
  end;
  for i := 1 to n do
  begin
    Write(a[i], ' ');
  end;
end.