Giúp em với ạ. Em gấp lắm ạ. E cảm ơn
Viết chương trình nhập vào mảng số nguyên gồm n phần tử n tối đa là 100 Hãy cho biết mạng đó có bao nhiêu số chẵn Hãy in các số chẵn đó ra màn hình.
Viết chương trình nhập vào mảng số nguyên gồm n phần tử n tối đa là 100 Hãy cho biết mạng đó có bao nhiêu số chẵn Hãy in các số chẵn đó ra màn hình.
Quảng cáo
1 câu trả lời 2351
uses crt;
var a:array[1..100]of integer;
i,n,dem:integer;
begin
write('so phan tu 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
begin
if a[i] mod 2=0 then
begin
dem:=dem+1;
if dem=0 then writeln('Trong day khong co so chan')
else writeln('So so chan la: ',dem);
readln;
end.
Rin Bo Ni
· 4 năm trước
Dạ hình như em chưa học "dem" ấy ạ, cho em hỏi dem là gì ạ.
Rin Bo Ni
· 4 năm trước
À em thấy rồi ạ. Em cảm ơn.
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86297
Gửi báo cáo thành công!
