viết chương trình đếm số chẵn lẻ

0 bình luận về “viết chương trình đếm số chẵn lẻ”

1. uses crt;

   var dem,i,n:integer;

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

   begin

   clrscr;

   dem:=0;

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

   for i:=1 to n do

   begin

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

   end;

   begin

   for i:=1 to n do

   if a[i] mod 2 = 0 then

   dem:=dem+1;

   end;

   writeln(‘day so co’dem’ so chan’);

   readln;

   end;

   (số lẻ thì làm ngược lại (a[i] mod 2 <>0))

   Bình luận

2. số lẻ

   uses crt ;

   var n,i,demchan,demle:word

   a:array[1..100] of longint;

   begin

   clrscr;

   write(‘nhap n:’);readln(n);

   for i:=1 to n do

   begin 

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

   end;

   demchan:=0;

   demle:=0;

   for i:=1 to n do

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

   end;

   if demchan=0 then writeln( ‘khong co phan tu chan trong day ) 

   else writeln(‘so phan tu chan trong day la:’,demchan);

   if demle=0 then writeln( khong co phan tu le trong day)

   else writeln(‘so phan tu le trong day la:’,demle);

   readln;

   end.

   Bình luận