Question

Viết chương trình nhập vào một dãy số gồm N phần tử từ A1, A2,…, An. Hãy đưa ra màn hình dãy số vừa nhập và số lượng các số chẵn trong dãy

Answer 1

Program bt;
Uses crt;
Var a:array [1..1000] of integer;
         n,i: integer;
Begin
Write( 'Moi nhap n');
Readln(n);
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 write( 'Cac so chan la',a[i]);
     Readln;
End.

Answer 2

Program bt;
Uses crt;
Var a:array [1..1000] of integer;
         n,i: integer;
Begin
Write( 'Moi nhap n');
Readln(n);
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 write( 'Cac so chan la',a[i]);
     Readln;
End.

chúc bạn học tốt !!!