Задача на циклы

[MikaNika]

Пожалуйста, помогите с ними:

Использование условного оператора после операторов цикла с условием:
1. Дана последовательность натуральных чисел a1, a2,…,a20. Определить, есть ли в последовательности хотя бы одна пара "соседних" нечетных чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар.

Определение максимального и минимального значений во время ввода данных (сочетание операторов цикла и условного оператора):
2. Дана последовательность из m единиц и нулей. Рассмотреть отрезки этой последовательности (последовательности идущих подряд чисел), состоящие из одних нулей. Получить наименьшую из длин рассматриваемых отрезков.

[spein]

Определение максимального и минимального значений во время ввода данных (сочетание операторов цикла и условного оператора):

for i:=1 to 20 do begin
write('a[', i, ']=');
readln(a[i]);
if(a[i] <min) then min:=a[i];
if(a[i] > max) then max:=a[i];
end;

1. Дана последовательность натуральных чисел a1, a2,…,a20. Определить, есть ли в последовательности хотя бы одна пара "соседних" нечетных чисел. В случае положительного ответа определить порядковые номера чисел первой из таких пар.

for i:=1 to 19 do begin
if(a[i] mod 2<>0) and (a[i+1] mod 2<> 0) then
writeln(a[i], ' ', a[i+1]);
end;

2. Дана последовательность из m единиц и нулей. Рассмотреть отрезки этой последовательности (последовательности идущих подряд чисел), состоящие из одних нулей. Получить наименьшую из длин рассматриваемых отрезков.

не уверен. не имею возможности проверить

for i:=1 to m do begin
if(a[i] = 0) and (a[i+1] = 0) then begin
for k:=i to m do 
if(a[k] = 1) or (k=m) then begin
if(length<k-i) then length:=k-i;
break;
end;
end;
end;

[Step_UA]

1)

i:=1;
while (i<20) and ((A[i] mod 2=0) or (A[i+1] mod 2=0)) do inc(i);
if i<20 then writeln(i,i+1);