Program Bai_tap_day_so;
Uses Crt;
Var i,n,tchan,tle: integer;
a: array[1..100] of integer;
Begin
Write('Nhap so phan tu cua mang: '); Readln(n);
For i:=1 to n do
Begin
Write('Nhap phan tu thu ',i);
Readln(a[i]);
End;
tchan:=0; tle:=0;
For i:=1 to n do
Begin
If A[i] mod 2 = 0 then tchan:=tchan+A[i]
Else tle:=tle+A[i];
End;
Writeln('Tong cac phan tu chan trong mang la: ',tchan);
Writeln('Tong cac phan tu le trong mang la: ',tle);
Readln
End.
----
Chức năng: Tính tổng các số chẵn và lẻ trong mảng A gồm n phần tử
