Viết chương trình cho biết có bao nhiêu phần tử chẵn
uses crt;
var a: array[1..100] of integer;
dem,s,i,n: integer;
begin
clrscr;
write [‘nhap n: ‘]; readln [n];
for i:=1 to n do
begin
write [‘nhap a[‘,i,’]: ‘]; readln [a[i]];
if a[i] mod 2=0 then begin s:=s+a[i]; dem:=dem+1;
end;
writeln [‘trong mang co ‘,dem,’ so chan’];
writeln [‘tong cac so chan trong mang la: ‘,s];
readln;
end.
program mang;
uses crt;
var A:array [1..500] of integer;
n,i,d,T: integer;
Begin
clrscr;
write [‘Nhap so phan tu: ‘]; readln[N];
for i:=1 to N do
begin
write[‘A[‘,i,’]=’]; readln[A[i]];
if A[i] mod 2=0 then
begin
T:=T+a[i];
d:=d+1;
end;
end;
writeln[‘Trong mang co ‘,d,’ so chan’];
write[‘Tong cac so chan trong mang = ‘,T];
readln;
End.