viết chương trình cho dãy a gồm n số nguyên a1 a2 …a n.cho biết a đó có bao nhiêu số chẵn

0 bình luận về “viết chương trình cho dãy a gồm n số nguyên a1 a2 …a n.cho biết a đó có bao nhiêu số chẵn”

1. Program bai_tap ;

   Uses crt ;

   Var A: array [1..150] of integer ;

          i,n,d: 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 chan trong day la:’,d);

   Readln

   End.

   Bình luận

2. uses crt;
   var a:array[1..1000000] of longint;
          n,i,d:longint;
   begin
          clrscr;
          write(‘Nhap n: ‘); readln(n);
          for i:=1 to n do 
                 begin
                        write(‘a[‘,i,’]: ‘); readln(a[i]);
                        if a[i] mod 2=0 then inc(d);
                 end;
          writeln(‘Co ‘,d,’ so chan’);
          readln;
   end.

   Bình luận