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

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 chiều”

1. Program Hotboy; 

   Uses crt; 

   Var A : array[1..100] of integer; 

   i,n,chan : longint;

   Begin

   Clrscr ;

   Chan:=0; 

   Write(‘Nhap n so luong phan tu’); Readln(n) ;

   For i:= 1 to n do

   Begin

   Write(‘A[‘,i,’]=’); 

   Readln(A[i]);

   End; 

   For i:=1 to n do 

   If A[i] mod 2 =0 then chan:= chan+1; 

   Write(‘so phan tu chan trong mang la: ‘,chan);

   Readln

   End.

   

   Bình luận

2. uses crt;

   var a:array[1..100]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;

   {————————————————————-}

   dem:=0;

   for i:=1 to n do

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

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

   readln;

   end.

   Bình luận