Проблема с матрицами

[bombochka40]

Ребят, срочно требуется ваша помощь. Нужно решить это вот в с++ и в Паскале. Помогите, кто чем может и у кого не займет это много времени.

[Stilet]

const 
 x:array[1..10] of integer=(1,2,3,4,5,6,7,8,9,0);
 y:array[1..8] of integer=(1,2,3,4,5,6,7,8);
var i,s1,s2,k1,k2:integer;
begin
 for i:=1 to 10 do if x[i]>0 then begin inc(s1,x[i]); inc(k1);  end;
 for i:=1 to 8  do if y[i]<0 then begin inc(s2,y[i]); inc(k2);  end;
 write('z= ',(exp(s1)+exp(s2))/(k1*k2)); readln;
end.

[bombochka40]

Спасибо огромное!