Viết chương trình đếm số lượng phần tử chẵn trong mảng

0 bình luận về “Viết chương trình đếm số lượng phần tử chẵn trong mảng”

1. Vì đề không cho nên mình lấy số số hạng trong mảng là 250 nha!

   type Kmang1: array[1..250];

   var A: Kmang1;

         dem, i: integer;

   Begin

   for i:=1 to 250 do

     begin

     Write(‘Phan tu thu’, i , ‘la’);

     Readln( A[i]);

     end;

   dem:=0;

   for i:=1 to 250 do

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

   Write(‘so luong phan tu chan trong mang la’, dem);

   Readln;

   End.

   Bình luận

2. var i,n:integer;

        a: array [1..1000] of integer;

   begin

   write(‘Nhap n: ‘); readln(n);

   for i:=1 to n do

   begin

   write(‘Nhap phan tu thu ‘,i,’ : ‘); readln(a[i]);

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

   end;

   writeln;

   write(‘So phan tu chan: ‘,d);

   readln

   end.

   Bình luận