viết chương trình nhập vào một mảng lấy các số chẵn sang mảng mới(làm bằng pascal nhé)

0 bình luận về “viết chương trình nhập vào một mảng lấy các số chẵn sang mảng mới(làm bằng pascal nhé)”

1. uses crt;
   var i,n,m:longint; a,b:array[1..10000]of longint;
   begin
   clrscr;
      write(‘n=’);readln(n);
      writeln(‘Nhap day so’);
      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 begin inc(m); b[m]:=a[i]; end;
      write(‘Mang moi: ‘);
      for i:=1 to m do write(b[i],’ ‘);
   readln
   end.

   Bình luận

2. 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