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ó

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.

uses crt;

var i,n, dem : integer;

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

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 = 1 then dem :=dem+1;

If dem = 0 then writeln('Khong co phan tu le') else writeln('Co so phan tu le la :', dem);

readln

end.