uses crt;

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

i,n,dem,t:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do

begin

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

end;

dem:=0;

for i:=1 to n do

if a[i] mod 2=0 then dem:=dem+1;

writeln('So phan tu chan la: ',dem);

end.

Uses Crt;
Var a:array[1..5000] of integer;
i,n,sc:longint;
Begin
Clrscr;
Write('Nhap cac ptu n vao: '); Readln(n);
Write('Cac so chan: ');
For i:= 1 to n do
Begin
Write('a[',i,']= '); Readln(a[i]);
End;
sc:=a[i];
If a[i] mod 2=0 then write('Khong co so chan nao het! ') else
Write('Cac ptu chan trong mang do la: ');
For i:= 1 to n do if a[i] mod 2 = 0 then write(a[i]:4);
Readln
End.
*Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks :D
*p/s: Hỏi và đáp, comment bên dưới!