народ кто понимает паскаль pleas оч надо, у мну экзамен по информатике в понедельник...буду очень благодарна.

uses crt;
const
m=10;
type
mas=array [1..m] of integer;
var
k,i,ch,t:integer;
x,y: mas;
begin
clrscr;
for i:=1 to m do
begin
x:=random(30)-10;
y:=random(40);
write(x:4);
end; writeln;

for i:=1 to m do
begin
if x<0 then k:=k+1;
write(y:4);
end;

writeln;t:=0; ch:=y[2];
for i:=1 to m do
begin
ch:=y[t+2];t:=t+2;
if (x<0) then x:=ch;
end;

for i:=1 to m do write(x:4);
writeln(k);
readln;
end.

Учитывая то, что количество отрицательных чисел 1-го массива может быть БОЛЬШЕ половины размера 2-го массива, придётся всё время проверять, не закончились ли чётные номера 2-го массива.
на обычном языке так:
задаем 2 массива P[1..P1], V[1..V1]
определяем 2 переменные для счёта kol:word -для подсчёта количества отрицательных
и nom:word - счётчик четных элементов массива V.
y:word - для цикла
kol:=0;
nom:=0;
for y:=1 to p1 do
begin
if p[y]<0 then
begin
inc(kol);
nom:=nom+2 или inc(nom,2);
if nom>V1 then nom:=2; - проверяем, не ушли ли за край массива V и если ушли - начинаем сначала-
p[y]:=v[nom];
end;
end;
тут вывод результата kol и, если нужно, новый массив в цикле

Program....
....
....
....
k:=1;
for i:=1 to 10 do
if A1[ i ]<0 then k:=k+1; -кол-во
k:=10;
for i:=10 downto 1 do begin
if A1[ i ]<0 then A1[ i ] :=A2[k]:k:=k -2; end;

где А1 -первый массив, А2 -второй
Объявление массивов делать влом....