viết chương trình nhập từ bàn phím số nguyên dương N( N<=100) và dãy số nguyên A1,A2,...An có trị tuyệt đối nhỏ hơn 1000. Đưa ra màn hình các thông tin sau : a. Tổng số nguyên chẵn , tổng số nguyên lẻ của dãy số. b.Tổng giá trị của dãy số . ai giúp em với ạ, em xin cám ơn, em cần gấp ạ

program Bai;

uses crt;

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

       i,n,s1,s2,s: integer;

begin 

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

s1:=0;

s2:=0;

s:=0;

  for i:=1 to n do 

     begin 

        write('A[',i,']=');

         readln(A[i]);

      end;

for i:=1 to n then 

 begin 

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

if A[i] mod 2<>0 then s2:=s2+n;

s:=s1+s2;

end;

 writeln('Tong cac so nguyen chan la:',s1);

writeln('Tong cac so nguyen le la:',s2);

writeln('Tong gia tri day la',s);

readln 

end.

Uses crt;
Var B:Array[1..100] of integer;
      i, n, tc, tl, tm: longint;
Begin
     Clrscr;
     Write('Nhap n = '); readln(n);
     For i:=1 to n do
           Begin
                Write('B[',i,']=');
                Readln(B[i]);
            End;
     tc:=0; tl:=0; tm:=0;
     For i:=1 to n do if B[i] mod 2 = 0 then inc(tc, b[i]);
     For i:=1 to n do if B[i] mod 2 = 1 then inc(tl, b[i]);
     For i:=1 to n do inc(tm, b[i]);
     Writeln('Tong so nguyen chan la: ',tc:0:2);
     Writeln('Tong so nguyen le la: ',tl:0:2);
     Writeln('Tong gia tri cua day so la: ',tm:0:2);
Readln
End.