Nhập vào một mảng,lấy các số chẵn sang mảng mới(pascal)

0 bình luận về “Nhập vào một mảng,lấy các số chẵn sang mảng mới(pascal)”

1. uses crt;

   var d:array[1…N]of integer;

   i,k,dem:integer;

   begin

   clrscr;

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

   for i:=1 to k do 

     begin

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

   end;

   dem:=0;

   for i:=1 to k do 

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

   writeln(‘So phan tu chan co 2 chu so la: ‘,dem);

   readln;

   end.

   Bình luận

2. program bai1;

   uses crt;

   var d: integer;

   i,k,dem:integer;

   begin

   clrscr;

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

   for i:=1 to k do 

     begin

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

   end;

   dem:=0;

   for i:=1 to k do 

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

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

   readln;

   end.

   Bình luận