Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên.
Xuất giá trị mảng ra màn hình
Xuất ra màn hình các phần tử là chẵn(N<=100)
Nhanh lên ạ
Viết chương trình nhập mảng B gồm N phần tử, các phần tử có dữ liệu số nguyên.
Xuất giá trị mảng ra màn hình
Xuất ra màn hình các phần tử là chẵn(N<=100)
Nhanh lên ạ
program so_chan;
uses crt;
var B:array[1..100] of integer;
n,i,d:byte;
begin
clrscr;
write(‘Nhap N: ‘); readln(n);
d:=0;
for i:=1 to n do
begin
write(‘B[‘,i,’]= ‘); readln(B[i]);
if B[i] mod 2=0 then d:=d+1;
end;
write(‘Mang B la: ‘);
for i:=1 to n do write(B[i],’ ‘);
writeln;
if d=0 then write(‘Khong co so chan’)
else
begin
write(‘Cac so chan la: ‘);
for i:=1 to n do
if B[i] mod 2=0 then write(B[i],’ ‘);
end;
readln;
end.
uses crt;
var B:array[1..100] of integer; n,i:integer;
begin
clrscr;
write(‘Nhap so luong phan tu: ‘); readln(n);
for i:=1 to n do
begin
write(‘Phan tu thu ‘,i,’: ‘); readln(B[i]);
end;
write(‘Day so ban vua nhap: ‘);
for i:=1 to n do write(B[i],’ ‘);
writeln;
if B[i] mod 2=0 then
begin
write(‘Cac phan tu chan: ‘);
for i:=1 to n do if B[i] mod 2=0 then write(B[i],’ ‘);
end
else write(‘Day so ban vua nhap khong co so chan’);
readln;
end.