Viết chương trình nhập vào một mảng số nguyên dương gồm n phần tử có giá trị bất kỳ từ bàn phím. A. Nhập và in mảng B. In các phần tử chẳn trên một hàng C. In các phần tử lẻ trên một hang ví dụ: 1,2,3,4,5,6 (số chẳn: 2,4,6. số lẻ: 1,3,5) pascal nha

var n,i,d1,d2: integer;
    a,even,odd: array[1..1000] of integer;
begin
    readln(n);
    d1:=0; d2:=0;
    for i:=1 to n do begin
        read(a[i]);
        if a[i] mod 2 = 0 then begin
            d1:=d1+1;
            even[d1]:=a[i];
        end else begin
            d2:=d2+1;
            odd[d2]:=a[i];
        end;
    end;
    for i:=1 to d1 do write(even[i],' ');
    writeln;
    for i:=1 to d2 do write(odd[i],' ');
end.

uses crt;
var arr : array[1..1000] of longint ;
    n, i : longint;
begin
    clrscr;
    readln(n);
    for i :=1 to n do read(arr[i]);
    for i := 1 to n do write(arr[i],' ');
    writeln;
    for i := 1 to n do 
        if arr[i] mod 2 = 0 then write(arr[i],' ');
    writeln;
    for i := 1 to n do 
        if arr[i] mod 2 <> 0 then write(arr[i],' ');
    writeln;
    
end.