Cho n và dãy số A1,A2,…Ăn Đếm xem trong đây có bão nhiêu số lẽ , bao nhiêu số chẵn.

0 bình luận về “Cho n và dãy số A1,A2,…Ăn Đếm xem trong đây có bão nhiêu số lẽ , bao nhiêu số chẵn.”

1. Cho 2 biến đếm s và s1. Tuỳ bạn đặt biến nào sẽ đếm phần tử là số chẵn, bao nhiêu phần tử lẻ. Thật ra chỉ cần 1 dòng code để xét xem nó chẵn hay lẻ. Cứ xét nếu số đó chia hết cho 2 thì cộng vào biến đếm của phần tử chẵn, không chia hết cho 2 thì cộng vào phần tử lẻ. Mấy đề như này thường sẽ cho số nguyên, không cho số thực nên chỉ cần xét 2 trường hợp là chẵn hay lẻ, không cần xét có phải là số thực hay không.

   Bình luận

2. uses crt;
   var n,i,s,d:integer;a:array[1..100] of integer;
   begin
   clrscr;
   readln(n);
   for i:=1 to n do
   begin
   write(‘A[‘,i,’]’);
   readln(a[i]);
   end;
   for i:=1 to n do
   begin
   if a[i] mod 2=0 then inc(d);
   if a[i] mod 2<>0 then inc(s);
   end;
   write(‘co ‘,d,’ so chan’); writeln;
   write(‘co ‘,s,’ so le’);
   readln;
   end.

   Bình luận