Cho N và dãy số a1-aN.Hãy cho biết có bao nhiêu số chẵn,bao nhiêu số lẻ trong dãy.

0 bình luận về “Cho N và dãy số a1-aN.Hãy cho biết có bao nhiêu số chẵn,bao nhiêu số lẻ trong dãy.”

1. Program NhatNgu;
   Uses crt;
   Var A: array[1..10000] of longint;
       n,i,dc,dl: longint;
   Begin
           Clrscr;
           Write(‘Nhap n: ‘); Readln(n);
           For i:=1 to n do
           Begin
                   Write(‘A[‘,i,’] = ‘);
                   Readln(A[i]);
           End;
           dc:=0; dl:=0;
           For i:=1 to n do
                   If A[i] mod 2 = 0 then inc(dc)
                   Else inc(dl);
           Writeln(‘Co ‘,dc,’ so chan’);
           Write(‘Co ‘,dl,’ so le’);
           Readln
   End.

   Bình luận

2. uses crt;
   var i,c,l,n:longint; a:array[1..1000000]of longint;
     begin
        clrscr;
        write(‘n=’);readln(n);
        for i:=1 to n do
           begin
              write(‘a[‘,i,’]=’);readln(a[i]);
              if a[i] mod 2=0 then inc(c) else inc(l);
           end;
        writeln(‘Chan: ‘,c);
        writeln(‘Le: ‘,l);
        readln
     end.
           

   Bình luận