program tinhtchboi3;

uses crt;

var i,n,chan,le : integer;

s,r:real;

a:array[1..100] of integer;

begin

clrscr;

s:=0;r:=0;

chan:=0; le:=0;

writeln('nhap so phan tu cua day so A',n); readln(n);

for i:= 1 to n do

begin

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

end;

if a[i] mod 2 then

begin

s:=S+a[i];

chan:=chan+1;

Writeln('tong cac so chan la',S); readln(s);

writeln('so so chan la',chan); readln(chan);

readln;

end

else then

r:=r+a[i];

le:=le+1;

Write('tong cac so le la',r);

readln(r);

writeln(' so cac so le la',le);

readln(le);

readln

end.

Code đây nhé:

uses crt;

var i,n,Dl,Tl,Dc,Tc: integer;

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

Begin

clrscr;

write('Nhap do dai day so: '); readln(n);

for i:=1 to n do

begin

write('a[',i,']='); readln(a[i]);

end;

Dl:=0; Dc:=0; Tl:=0; Tc:=0;

for i:=1 to n do

if a[i] mod 2=0 then

begin inc(dc);

tc:=tc+a[i];

end

else begin inc(dl);

tl:=tl+a[i];

end;

writeln('Co ',dc,' so chan trong day va tong bang: ',tc);

writeln('Co ',dl,' so le trong day va tong bang: ',tl);

readln

end.