Cho dãy A là 1 dãy số nguyên từ A1.. An với điều kiện N<50. Hãy đếm xem trong dãy vừa nhập bao nhiêu số chẵn

0 bình luận về “Cho dãy A là 1 dãy số nguyên từ A1.. An với điều kiện N<50. Hãy đếm xem trong dãy vừa nhập bao nhiêu số chẵn”

1. Program BTT;
   Uses crt;
   Var A: array[1..50] of longint;
       n,i,d: longint;
   Begin
           Clrscr;
           Write(‘Nhap 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 inc(d);
           End;

           Write(‘Co ‘,d,’ so chan’);
           Readln
   End.

   Bình luận

2. program ct;

   uses crt;

   var A:array[1..50] of integer;

         i,n,d:integer;

   begin clrscr;

      write(‘Nhap so phan tu: ‘); readln(n);

      for i:=1 to n do

        begin

           write(‘Nhap A[‘,i,’]: ‘); readln(A[i]);

        end;

      for i:=1 to n do

        if A[i] mod 2=0 then inc(d);

      write(‘Day vua nhap co ‘,d,’ so chan’);

   readln;

   end.

   Học tốt!

   Bình luận