Câu này lm như nào ak Viết chương trình đếm các số chẵn trong dãy số nguyên A có N phần tử 10^3
2 câu trả lời
program dem_chan;
uses crt;
var A:array[1..1000] of integer;
n,i,d:integer;
begin
clrscr;
write('Nhap N: '); readln(n);
d:=0;
for i:=1 to n do
begin
write('Nhap so thu ',i,': '); readln(A[i]);
if A[i] mod 2=0 then d:=d+1;
end;
write('Co ',d,' so chan');
readln;
end.
program sochan;
uses crt;
var A:array[1..300] of integer;
i,n,dem:nteger;
begin
clrscr;
writeln('nhap n = ');
readln(n);
for i:=1 to n do
begin
writeln('nhap phan tu thu ',i );
readln(a[i];
end;
dem:=0;
for i:=1 to n do
if a[i] mod 2 = 0 then
dem:=dem+1;
writeln(' co so chan trong day la ',dem);
readln
end.
