Bài 12: Kiểu xâu

Tuệ Lâm

Viết chương trình đếm các số chẵn trong dãy số nguyên a có n phần tử n 200

Nguyễn Lê Phước Thịnh
9 tháng 4 2021 lúc 21:42

uses crt;

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

i,n,dem:integer;

begin

clrscr;

write('Nhap 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

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

writeln(dem);

readln;

end.


Các câu hỏi tương tự
NTKL
Xem chi tiết
Phượng Hà Thị
Xem chi tiết
Nguyễn khánh thành
Xem chi tiết
Võ Thị Thái Ngọc
Xem chi tiết
Thanh Nhi Phạm
Xem chi tiết
nguyễn an phát
Xem chi tiết
Miner Đức
Xem chi tiết
giàng văn thương
Xem chi tiết
tạ đình tuân
Xem chi tiết