Câu 4: (4,0 điểm): Sắp xếp mảngCho 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.TestNhập số kDãy BKết quả (In ra màn hình)151; 2; 20; 10; 92; 10; 20; 9; 1pascal...
Đọc tiếp
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.
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.
no hien thi ko co result bn oi