✅ nhập dãy a gồm n số nguyên. đưa ra màn hình đếm số chẵn, số lẽ trong dãy A
nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy A
Hỏi:
nhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy Anhập dãy a gồm n số nguyên．đưa ra màn hình đếm số chẵn， số lẽ trong dãy A
Đáp:
thaophuobg:program dem_so;
uses crt;
var A:array[1..1000] of integer;
n，i，dc，dl:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
dc:=0; dl:=0;
for i:=1 to n do
begin
write[‘A[‘，i，’]= ‘]; readln[A[i]];
if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;
end;
writeln[‘Co ‘，dc，’ so chan’];
writeln[‘Co ‘，dl，’ so le’];
readln;
end.
program dem_so;
uses crt;
var A:array[1..1000] of integer;
n，i，dc，dl:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
dc:=0; dl:=0;
for i:=1 to n do
begin
write[‘A[‘，i，’]= ‘]; readln[A[i]];
if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;
end;
writeln[‘Co ‘，dc，’ so chan’];
writeln[‘Co ‘，dl，’ so le’];
readln;
end.
program dem_so;
uses crt;
var A:array[1..1000] of integer;
n，i，dc，dl:integer;
begin
clrscr;
write[‘Nhap n: ‘]; readln[n];
dc:=0; dl:=0;
for i:=1 to n do
begin
write[‘A[‘，i，’]= ‘]; readln[A[i]];
if A[i] mod 2=0 then dc:=dc+1 else dl:=dl+1;
end;
writeln[‘Co ‘，dc，’ so chan’];
writeln[‘Co ‘，dl，’ so le’];
readln;
end.