uses crt;

var i,k:integer;

     a: array [10..200] of integer;

begin

clrscr;

writeln('Nhap mang mot chieu gom 10 phan tu: ');

k:=0;

for i:= 1 to 10 do 

begin

write('10 <= a[',i,'] <= 200: ');

readln(a[i]);

while (10>a[i]) or (a[i]>200) do

   begin

   write('Nhap lai: ');readln(a[i])

   end;

if a[i] mod 2 = 1 then inc(k);

end;

for i:= 1 to 10 do write(a[i],'  ');

writeln;

writeln('Trong mang vua nhap co ',k,' phan tu le');

readln;

endd.

program oken;
uses crt;
var a: array [1..10] of byte;
    i,dem:byte;
begin
        clrscr;
        writeln('Nhap 10 so phan tu cua mang A');
        for i:=1 to 10 do
                begin
                        write('A[',i,']:  '); readln(a[i]);
                        if (a[i] mod 2=1) then
                                dem:= dem+1;
                end;
        if dem<>0 then
                writeln('So phan tu co gia tri la le trong mang: ',dem)
        else
                writeln('Khong co gia tri le nao trong mang');
        readln;
end.