uses crt;

var n,i,chan,tonchan:integer;

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

begin

write('nhap n '); readln(n);

for i:=1 to n do

begin

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

end;

write(‘Cac phan tu chan: ‘);

for i:=1 to n do

if A[i] mod 2=0 then write(A[i]，’  ‘);

writeln;

write(‘Co ‘，d，’ phan tu le’);

begin

writeln(a[i]);

end;

for i:=1 to n do

if n mod 2=0 then begin writeln(a[i]);

chan:=chan+1;

end;

write('tong cac phan tu chan ',chan);

readln;

end.

uses crt;

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

i, n, d1, d2, s1 : integer;

begin

clrscr;

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

d1 := 0; d2 := 0; s1 := 0;

for i := 1 to n do

begin

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

if a[i] mod 2 = 0 then

begin d1 := d1 + 1; s1 := s1 + a[i];

end else d2 := d2 + 1;

end;

writeln('Co ', d1 ,' phan tu chan');

writeln('Co ', d2 ,' phan tu le');

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

readln

end.