Ai giúp em vơi Viết CT nhập vào mảng 1 chiều tách ra hai mảng mới Mảng 2 chứ số chẵn Mảng 3 chứa số lẻ ( pascal ạ)

program nghia;

uses crt;

  var A: array[1..500] of integer;

       i, e: integer;

begin

            clrscr;

            write(‘Nhap e = ‘); readln(n);

            for i:=1 to e do

            begin

                        write(‘A[‘, i, ‘] = ‘); readln(A[i]);

            end;

            write(‘Mang chua so chan: ‘);

            for i:=1 to e do if A[i] mod 2 = 0 then write(A[i]:3);

            write(‘Mang chua so le: ‘);

            for i:=1 to e do if A[i] mod 2 = 1 then write(A[i]:3);

            readln

end.

Xin hay nhất 

Nhận giải mọi bài tập 

Ai muốn vào nhóm mk ko 

Try to study well for the future