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

[Trouble]

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

Код

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

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

[Altair]

for i:=1 to n do sa:=sa+a[i];
for i:=1 to m do sb:=sb+b[i];
y=sa/sb;

[Guest]

Мне нужно через функцию

[Altair]

очень приятно, а я Олег



я тебе алгоритм дал, а как тебе надо.... хы.. это тебе надо.

[Trouble]

Я уже и сам решил через функции. Но все равно спасибо

[klem4]

function y(n,m : integer;  a,b : TArray) : single;
var
   i : byte;
   s1,s2 : single;
begin
   s1 := 0;
   for i := 1 to n do s1 := s1 + a[i];
   s2 := 0;
   for i := 1 to m do s2 := s2 + b[i];
   y := s1/s2;
end;

[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