Nhập vào mảng 1 chiều B gồm N số nguyên, ko quá 200 phần tử. Đếm và đưa ra màn hình số lượng phần tử có giá trị dương và là số lẻ.

0 bình luận về “Nhập vào mảng 1 chiều B gồm N số nguyên, ko quá 200 phần tử. Đếm và đưa ra màn hình số lượng phần tử có giá trị dương và là số lẻ.”

1. program dem_so;

   uses crt;

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

        n,i,d:byte;

   begin

          clrscr;

          write(‘Nhap n: ‘);  readln(n);

          d:=0;

          for i:=1 to n do

                 begin

                        write(‘B[‘,i,’]= ‘);  readln(B[i]);

                        if (B[i]>0) and (B[i] mod 2=1) then d:=d+1;

                 end;

          write(‘Co ‘,d,’ so thoa man’);

          readln;

   end.

   Bình luận

2. var b: array[1..200] of integer;

         i, n, d: byte;

   Begin

       Write(‘n = ‘); readln(n); d:=0;

       For i :=1 to n do

          Begin

              Write(‘b[‘, i, ‘] = ‘); readln(b[i]);

              if (b[i]>0) and (b[i] mod 2 <> 0)

                 then inc(d);

          End;

       Writeln(‘co ‘, d, ‘ so nhu vay’);

       Readln

   End.

   Bình luận