Viết chương trình nhập N phần tử a1,a2…an. Hãy đếm xem dãy có bao nhiêu số hạng chia hết cho 2. Chạy bài N=6 |27|8|3|5|11|22|

0 bình luận về “Viết chương trình nhập N phần tử a1,a2…an. Hãy đếm xem dãy có bao nhiêu số hạng chia hết cho 2. Chạy bài N=6 |27|8|3|5|11|22|”

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

         i, n, d: byte;

   Begin

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

      For i:=1 to n do 

        Begin

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

             If a[i] mod 2=0 then d:=d+1;

        End;

      Write(‘co ‘, d, ‘ so hang chia het cho 2’);

      Readln

   End.

   Bình luận

2. uses crt;
   var a: array[1..100] of integer;
   n,i,d: integer;
   begin
   clrscr;
   d:=0;
   write(‘Nhap so phan tu: ‘); readln(n);
   for i:=1 to n do begin
   write(‘a[‘,i,’]=’); readln(a[i]); end;
   for i:=1 to n do
   if a[i] mod 2 =0  then d:=d+1;
   writeln(‘Co ‘,d,’ phan tu chia het cho 2′);
   readln;
   end.

   đã test mong đc vote

   Bình luận