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
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
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.
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.