Функции, Сумма элементов массива Опции

[Trouble]

Привет всем. Вот есть задачка, помогите решить:
Даны два массива А и В.
Найти

Код

    ∑Ai
y=-------
    ∑Bi

Заранее спасибо.

[volvo]

To: klem4
В следующий раз - стреляю без предупреждения !!!

Function sum(var arr: array of integer; const n: integer): integer;
Var i, s: integer;
begin
  s := o;
  for i := 0 to pred(n) do
    inc(s, arr[i]);
  sum := s;
end;
...
  y: = sum(a, n) / sum(b, m);
...

М

klem4