Cho dãy a gồm n số nguyên a1,a2,-…an .đếm có bao nhiêu số lẻ ở trong dãy Mình cần gấp

0 bình luận về “Cho dãy a gồm n số nguyên a1,a2,-…an .đếm có bao nhiêu số lẻ ở trong dãy Mình cần gấp”

1. uses crt;
   var A:array[1..1000] of integer;
       n,i,dem:integer;
   begin
      clrscr;
      write(‘Nhap n: ‘); readln(n);
      for i:=1 to n do
      begin
         write(‘Nhap phan tu thu ‘,i,’: ‘);
         readln(A[i]);
         if A[i] mod 2 = 1 then inc(dem);
      end;
      write(‘Co ‘,dem,’ so le trong day.’);
      readln
   end.

   Bình luận

2. Program dem_so ;

   Uses crt ;

   Var i,n,d : integer ;

       A: array [1..100] of integer ;

   Begin

   Write(‘nhap n=’);

   Readln (n);

   For i:=1 to n do

   Begin

   Write (‘nhap phan tu thu ‘,i,’ =’);

   Readln (A[i]);

   end;

   d:=0;

   For i:=1 to n do 

   If A [i] mod 2 <>0 then 

   d:=d+ 1;

   Writeln(‘so so nguyen le trong day la:’, d);

   Readln

   End.

   #Chỗ khai báo A: array [1..100] là lấy 100 tượng trưng, mà muốn ghi số bao nhiêu cũng được vd như 150, 200, 250…cũng được. Nếu muốn khai báo kiểu chỉ số là [1..Nmax] thì phải khai báo hằng trước vd như: Const Nmax= 100;

   Bình luận