Giai giup mk bai pascal nay vs a. Cam on moi nguoi. Nhập vào n số nguyên từ bàn phím. Tính tổng các số chẵn và tổng các số lẻ của n số vừa nhập.

Program;
Uses CRT;
Var A:Array[1..50] of Integer;
Var i,n,tc,tl:Integer;
Begin
        Clrscr;
        Write('Nhap n: ');
        Readln(n);
        For i:=1 To n Do
        Begin
                Write('Nhap gia tri cho phan tu thu ',i,' :');
                Readln(A[i]);
        End;
        Write('Cac phan tu cua mang la: ');
        For i:= 1 To n Do
                Write(A[i],'  ');
        For i:=1 To n Do
                If A[i] mod 2 = 0 then
                        tc:=tc+A[i]
                Else
                        tl:=tl+A[i];
        Writeln;
        Writeln('Tong cac so chan la: ',tc);
        Write('Tong cac so le la: ',tl);

Readln;
End.