Массивы в Delphi

[Dark Raven]

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

[Mad_Cat]

1. Определить в числовом массиве а(n) число соседств из двух чисел разного знака.

k:=0;
for i:=1 to n-1 do
if a[i]*a[i+1]<0 then k:=k+1;

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

for i:=1 to m do
if odd(i) then
for j:=1 to n do
a[i,j]:=b[j];

[Dark Raven]

А полностью программу не напишите?