задачи на массивы в Pascal

[tort1111]

помогите решить задачи. завтро зачёт а я болел когда тему проходили.
1. найти число пар соседних элементов массива являющимися чётными числами.
2. в массиве из 20 чисел образуют неубывающую последовательность.Найти количество равных элементов.



______________
Название темы по правилам форума должно адекватно отражать суть решаемой задачи/проблемы.
На первый раз я исправил.
В последующем, темы с подобным названием будут закрываться или удаляться,
а автор такой темы будет получать штрафные баллы.
Учтите это на будущее.

Модератор.

[spein]

1.

var a:array[1..20] of integer;
counter:integer;
begin
for i:=2 to 20 do 
  if ((a[i-1] mod 2) <> 0) and ((a[i] mod 2) <> 0) then inc(counter);
end;

2:Кто образует?)) Не могу понять даже задачи

[IT-man]

2

var a:array[1..20] of integer;
counter,i:integer;
begin
counter:=0;
for i:=2 to 20 do 
  if (a[i-1] =a[i] ) then inc(counter);
{......................}
end.