Viết CT nhập vào một mảng,lấy các số chẵn của mảng này sang mảng khác

0 bình luận về “Viết CT nhập vào một mảng,lấy các số chẵn của mảng này sang mảng khác”

1. uses crt;
   var i,n,k:byte;
   a,b:array[1..255] of integer;
   BEGIN
           clrscr;
           write(‘Nhap n:’); readln(n);
           for i:=1 to n do
           begin
                   write(‘Nhap a[‘,i,’]:’);
                   readln(a[i]);
           end;
           k:=0;
           for i:=1 to n do
                   if a[i] mod 2=0 then
                   begin
                           inc(k);
                           b[k]:=a[i];
                   end;
           write(‘CAC SO CHAN SAU KHI LAY RA LA:’);
           for i:=1 to k do
                   write(b[i],’ ‘);
           readln
   END.

   Các số chẵn sau khi lấy ra lưu ở mảng b.

   Chúc bạn học tốt.

   Cho mik câu trl hay nhất nha.

   Bình luận

2. program mangchan;

   uses crt;

   var A,B:array[1..1000] of integer;

         n,i,d:integer;

   begin

   clrscr;

   write(‘Nhap so luong phan tu mang ban dau: ‘);   readln(n);

   writeln(‘NHAP TUNG GIA TRI CUA MANG’);

   d:=0;

   for i:=1 to n do

    begin

     write(‘Phan tu thu ‘,i,’: ‘);

     readln(A[i]);

     if A[i] mod 2=0 then

       begin

         d:=d+1;

         B[d]:=A[i];

       end;

    end;

   if d=0 then write(‘Khong co phan tu chan de tao mang moi’)

    else 

     begin

      write(‘Mang moi la: ‘);

      for i:=1 to d do

       write(A[i],’ ‘);

     end;

   readln

   end.

   Bình luận