Cho mảng B một chiều gồm N (N<= 100) số nguyên. Viết chrơng trình nhập giá trị vào cho mảng và in ra màn hình các phân tử có giá trị là chẵn của mảng

• ThienThuanhoidap247

uses crt;
var n,i:byte;
    b:array[1..100] of integer;
begin
   clrscr;
   write('Nhap n: '); readln(n);
   for i:=1 to n do
   begin
      write('Nhap phan tu thu ',i,': ');
      readln(a[i]);
   end;

   write('Cac phan tu chan la: ');
   for i:=1 to n do

   if b[i] mod 2 = 0 then write(b[i]:2);

   readln
end.

program timsochan;

uses crt;

var i,n, dem : integer;

b : array [1..100] of integer;

Begin clrscr;

dem :=0;

Writeln('Nhap cac phan tu n :'); readln(n);

For i:=1 to n do

Begin

Writeln('Nhap b[',i,'] = '); readln(b[i]);

end;

For i :=1 to n do 

If b[i] mod 2 = 0 then writeln(b[i] :4);

readln

end.