Cho mảng A là số nguyên, N được nhập từ bàn phím. Viết chương trình cho biết mảng A có bao nhiêu số chẵn, bao nhiêu số lẻ giúp mình với

0 bình luận về “Cho mảng A là số nguyên, N được nhập từ bàn phím. Viết chương trình cho biết mảng A có bao nhiêu số chẵn, bao nhiêu số lẻ giúp mình với”

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

           Write(‘Co ‘,dc,’ so chan va ‘,dl,’ so le’);
           Readln
   End.

   Bình luận

2. Bạn thử xem đúng ko nha.

   ______________

   uses crt;
   var n,i,scs,tong:integer;
   A:array[1..100] of integer;
   f:text;
   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
   begin
   scs:=scs+1;
   tong:=tong+A[i];
   end;
   end;
   Writeln(‘Day tren co ‘,scs, ‘ phan tu chan.’);
   Writeln(‘Tong so phan tu chan co trong day la: ‘,tong);
   readln;
   end.

   Bình luận