Nhập 1 mảng A các số nguyên (không quá 500 phần tử) đếm xem có bao nhiêu số chẵn, đưa ra màn hình các số chẵn mỗi số cách nhau 1 dấu cách Giải giúp mì

0 bình luận về “Nhập 1 mảng A các số nguyên (không quá 500 phần tử) đếm xem có bao nhiêu số chẵn, đưa ra màn hình các số chẵn mỗi số cách nhau 1 dấu cách Giải giúp mì”

1. uses crt;

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

   i,n,dem:integer;

   begin

   clrscr;

   write(‘n=’); readln(n);

   for i:=1 to n do

   begin

   write(‘a[‘,i,’]=’); readln(a[i]);

   end;

   {————————xu-ly————————-}

   dem:=0;

   for i:=1 to n do

   if a[i] mod 2=0 then

   begin

   write(a[i],’ ‘);

   inc(dem);

   end;

   writeln;

   writeln(‘so phan tu chan trong day la: ‘,dem);

   readln;

   end.

   Bình luận

2. Program BTT;
   Uses crt;
   Var A: array[1..500] 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;
           Writeln(‘Co ‘,d,’ so chan’);
           For i:=1 to n do
                   If A[i] mod 2 = 0 then Write(A[i],’ ‘);
           Readln

   End.

   Bình luận