Viết chương trình pascal nhập vào dãy số nguyên a từ bàn phím ( số phần tử của A cũng đc nhập từ bàn phím) In ra màn hình số các số chẵn

0 bình luận về “Viết chương trình pascal nhập vào dãy số nguyên a từ bàn phím ( số phần tử của A cũng đc nhập từ bàn phím) In ra màn hình số các số chẵn”

1. program h247;
   var a:array[1..1000] of integer;
       i, n: integer;
   begin
     write(‘Nhap n ‘); readln(n);
     for i:=1 to n do 
     begin
     write(‘Nhap a[‘,i,’] ‘); 
     readln(a[i]);
     end;
     for i:=1 to n do

     if a[i] mod 2 = 0 then writeln(‘Cac so trong day chia het cho 2 la ‘,a[i]);
     readln;
   end.

   Bình luận

2. program ct;

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

         i,n: integer;

   begin clrscr;

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

      for i:=1 to n do

        begin

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

        end;

      writeln(‘Cac so chan la: ‘);

      for i:=1 to n do

        if A[i] mod 2=0 then writeln(A[i]:3);

   readln;

   end.

   Học tốt!

   Bình luận