Паскаль

[Roll1n]

Дан массив.Нужно обнулить его первый и последний нечетный элементы
Вот код того,что я сделал,но он не правильно находит нечетные эл-ты.

    uses crt;
type mass=array[1..20] of integer;
   var a:mass;
       nch1,nch2,n,i:integer;
       begin
   writeln ('vvod massiva');
   repeat
       write ('vvedite chislo el-ov massiva ');
       read(n);
   until  (n>0) and (n <=20);
   writeln ('vvedite ',n,' el-ov');
   for i:=1 to n do
       read (a[i]);

for i:=1 to n do
   if a[i] mod 2<>0 then begin nch2:=i
end;
for i:=1 to n do
   if a[i] mod 2<>0 then begin
   if nch1=0 then nch1:=i

   end;
writeln('nch1=',nch1);
writeln('nch2=',nch2);

nch1:=0;
nch2:=0;
for i:=1 to n do
write(a[i]:7);
end.

[ОДИНОЧЕСТВО В СЕТИ]

var in:integer;
....
begin
.....
in:=0;
for i:=1 to n do
if a[i] mod 2 <>0 then begin a[i]:=0;break;end;
for i:=1 to n do
if a[i] mod 2 <>0 then in:=i;
if in<>0 then a[in]:=0;
...
end.

[Roll1n]

Все равно не правильно вычисляет.Ты проверяла в компиляторе?

[ОДИНОЧЕСТВО В СЕТИ]

попробовала

var int:integer;i:integer;
a:array[1..10] of integer;
begin
for i:=1 to 10 do
a[i]:=1;
for i:=1 to 10 do write (a[i]:3);
int:=0;
for i:=1 to 10 do
if a[i] mod 2 <>0 then begin a[i]:=0;break;end;
for i:=1 to 10 do
if a[i] mod 2 <> 0 then int:=i;
if int<>0 then a[int]:=0;
writeln;
for i:=1 to 10 do write (a[i]:3);
readln;
end.

ответ

1 1 1 1 1 1 1 1 1 1
0 1 1 1 1 1 1 1 1 0