Bài 12: Kiểu xâu

TL

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

NT
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.

Bình luận (0)

Các câu hỏi tương tự
H24
Xem chi tiết
PT
Xem chi tiết
NT
Xem chi tiết
VN
Xem chi tiết
TP
Xem chi tiết
NP
Xem chi tiết
MD
Xem chi tiết
GT
Xem chi tiết
TT
Xem chi tiết