Nhập mảng A, đếm xem trong mảng có bao nhiêu phân tử chẵn

0 bình luận về “Nhập mảng A, đếm xem trong mảng có bao nhiêu phân tử chẵn”

1. uses crt;

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

   i,n,dem,t:integer;

   begin

   clrscr;

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

   for i:=1 to n do

   begin

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

   end;

   dem:=0;

   for i:=1 to n do

   if a[i] mod 2=0 then dem:=dem+1;

   writeln(‘So phan tu chan la: ‘,dem);

   end.

   Bình luận

2. Uses Crt;
   Var a:array[1..5000] of integer;
   i,n,sc:longint;
   Begin
   Clrscr;
   Write(‘Nhap cac ptu n vao: ‘); Readln(n);
   Write(‘Cac so chan: ‘);
   For i:= 1 to n do
   Begin
   Write(‘a[‘,i,’]= ‘); Readln(a[i]);
   End;
   sc:=a[i];
   If a[i] mod 2=0 then write(‘Khong co so chan nao het! ‘) else
   Write(‘Cac ptu chan trong mang do la: ‘);
   For i:= 1 to n do if a[i] mod 2 = 0 then write(a[i]:4);
   Readln
   End.
   *Nhớ tick và chọn làm câu trả lời hay nhất giúp mình với nhá! Thanks 😀
   *p/s: Hỏi và đáp, comment bên dưới!

   Bình luận