Bài 11: Kiểu mảng

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
giang trần

Nhập số nguyên gồm n phần tử (n<=100) và dãy số nguyên A1,A2,...An. Hãy đếm số lượng số chẵn và số lượng số lẻ có trong dãy.

Mọi người giúp em với ạ.

Nguyễn Lê Phước Thịnh
7 tháng 4 2020 lúc 20:55

uses crt;

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

i,n,dc,dl:integer;

begin

clrscr;

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

for i:=1 to n do

begin

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

end;

{------------------------------xu-ly------------------------------}

dc:=0;

dl:=0;

for i:=1 to n do

begin

if a[i] mod 2=0 then inc(dc)

else inc(dl);

end;

writeln('trong day co ',dc,' so chan va ',dl,' so le');

readln;

end.


Các câu hỏi tương tự
Lê Phương Thảo
Xem chi tiết
Sarah Lilia
Xem chi tiết
Dandelion
Xem chi tiết
fyujg
Xem chi tiết
Leoumax
Xem chi tiết
Linh Chi
Xem chi tiết
Lee Jihoon
Xem chi tiết
Hứa Thị Kim Diệu
Xem chi tiết
Nguyễn Ngọc
Xem chi tiết
Lê thị khánh chi
Xem chi tiết