uses crt;

var B : array [1 .. 100] of integer;

i, N, Min, v : integer;

begin

clrscr;

write('Nhap so N : '); readln(N);

write('Nhap day gom ', N ,' so : ');

v := 0;

for i := 1 to N do

    begin

        read(B[i]);

        if (B[i] mod 2 <> 0) and (B[i] <> 0) then

            begin

                Min := B[i];

                v := i;

            end;

    end;

for i := 1 to N do

    if (B[i] mod 2 <> 0) and (B[i] > Min)and (B[i] <> 0) then

        begin

            Min := B[i];

            v := i;

        end;

if v = 0 then

    write('Day khong co so le')

else write('Vi tri so le lon nhat : ', v);

readln

end.