Cho mảng B một chiều gồm N phần tử . 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à lẻ và thông báo nếu không có
Cho mảng B một chiều gồm N phần tử . 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à lẻ và thông báo nếu không có
program oken;
uses crt;
var b: array [1..1000] of integer;
i,n,dem:integer;
begin
clrscr;
write(‘nhap so phan tu cua mang: ‘); readln(n);
for i:=1 to n do
begin
write(‘B[‘,i,’]: ‘); readln(b[i]);
if b[i] mod 2=1 then
dem:=dem+1;
end;
if dem<>0 then
begin
write(‘day cac gi tri le trong mang: ‘);
for i:=1 to n do
if b[i] mod 2 =1 then
write(b[i],’ ‘);
end
else
writeln(‘khong co gia tri le nao trong mang.’);
readln;
end.
uses crt;
var B:array[1..10000] of integer;
n,i:integer;
dem:boolean;
begin
write(‘Nhap n: ‘); readln(n);
for i:=1 to n do
begin
write(‘Nhap phan tu thu ‘,i,’: ‘);
readln(B[i]);
end;
for i:=1 to n do
if B[i] mod 2 <> 0 then
begin
dem:=true;
write(B[i]:2);
end;
if dem<>true then write(‘Khong co phan tu le’);
readln
end.