uses crt;

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

i, n, s1, s2 : integer;

begin

clrscr;

write('Nhap so phan tu co trong day : '); readln(n);

s1 := 0; s2 := 0;

for i := 1 to n do

begin

write('Nhap phan tu thu ', i ,' : '); readln(A[i]);

if A[i] mod 2 = 0 then s1 := s1 + A[i] else s2 := s2 + A[i];

end;

write('Xuat mang : ');

for i := 1 to n do write(A[i] : 4);

writeln;

writeln('Tong phan tu chan : ', s1);

writeln('Tong phan tu le : ', s2);

readln

end.

program baitap;

Var

        n,i,TC,TL:longint;

        A:array[1..1000] of longint;

Begin

       Repeat

           write('Nhap so phan tu: '); readln(n);

       until n<=50;

       TC:=0; TL:=0;                                     {Khởi tạo tổng chẵn, tổng lẽ =0}

       For i:=1 to n do

       begin

           Readln(A[i]);                                                              {Nhập phần tử}

           If A[i] mod 2=0 then TC:=TC+A[i] else TL:=TL+A[i]; {Tính tổng chẵn và tổng lẽ}

       End;

       for i:=1 to n do write(A[i],' '); writeln;   {Xuất mảng}

       writeln('Tong chan: ',TC);                      {Xuất tổng chẵn}

       writeln('Tong le: ',TL);                            {Xuất tổng lẽ}

       Readln;

End.