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.