viết chương trình nhập vào dãy số và in ra các sổ chẵn(sử dụng mảng)

0 bình luận về “viết chương trình nhập vào dãy số và in ra các sổ chẵn(sử dụng mảng)”

1. program daysochan;

   uses crt;

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

        n,i:integer;

   begin

         clrscr;

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

         for i:=1 to n do

         begin

         write(‘Nhap so thu ‘,i,’: ‘);  readln(A[i]);

                 end;

          for i:=1 to n do

          if A[i] mod 2=0 then write(A[i],’)

   readln

   end.

   Bình luận