TPascal ряды

[Donatello]

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

[GetMax]

получается что я должен делить на ноль.

Такое получится, если сумма элементов векторов n и m будет равна нулю. Даже если задавать элементы векторов через ГСЧ, это будет довольно редко. Ну а чтобы наверняка избежать деления на ноль, проверяйте знаменатель дроби на наличие нуля.

[Donatello]

ну я сделал вот так, верно это или нет я не уверен. И у меня ошибка, я почему то в примере единицу принял за L, так что в этом ошибка походу основная. Если моя ошибка только в том что я единицу принял за L, то буду править если нет, то где ошибся?

program Project3;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  l: array [1..8] of Integer;
  n: array [1..5] of Integer;
  m: array [1..5] of Integer;
  i,rnd,buff: Integer;
  sumL,sumN,sumM: Integer;
  Z1, Z2: real;
begin
  { TODO -oUser -cConsole Main : Insert code here }
  { Íàïîëíèì ìàññèâû ñëó÷àéíûìè ÷èñëàìè è âûâåäåì èõ }
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 8 do begin
    l[i] := random(rnd);
    Write(l[i],' ');
  end;
  buff := l[1];
  WriteLn;
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 5 do begin
    n[i] := random(rnd);
    Write(n[i],' ');
  end;
  WriteLn;
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 5 do begin
    m[i] := random(rnd);
    Write(m[i],' ');
  end;
  WriteLn;
  { Ïîäñ÷èòàåì ñóììû ìàññèâà l }
  sumL := 0;
  sumN := 0;
  sumM := 0;
  for i := 1 to 8 do
    sumL := sumL + l[i]*l[i];
  for i := 1 to 5 do begin
    sumN := sumN + n[i];
    sumM := sumM + m[i];
  end;
  WriteLn('Summa l ', sumL);
  WriteLn('Summa n ', sumN);
  WriteLn('Summa m ', sumM);
  Z1 := buff * (sumN + sumM);
  WriteLn('Z = ', Z1:10:2);
  ReadLn;
end.

[GetMax]

я почему то в примере единицу принял за L,

И все таки в знаменателе не единица, а первый элемент вектора L. Согласитесь, единице нижний индекс никчему. Кроме того при подсчете, вы посчитали только знаменатель, а числитель разделить на него забыли. Вообщем вот

var
  l: array [1..8] of Integer;
  n: array [1..5] of Integer;
  m: array [1..5] of Integer;
  i,rnd,buff: Integer;
  sumL,sumN,sumM: Integer;
  Z1, Z2: real;
begin
  Randomize;
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 8 do begin
    l[i] := random(rnd);
    Write(l[i],' ');
  end;
  buff := l[1];
  WriteLn;
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 5 do begin
    n[i] := random(rnd);
    Write(n[i],' ');
  end;
  WriteLn;
  Write('Vvedite 4islo random dl9 zapolneni9 massiva: ');
  ReadLn(rnd);
  for i := 1 to 5 do begin
    m[i] := random(rnd);
    Write(m[i],' ');
  end;
  WriteLn;
  { Iian?eoaai noiiu ianneaa l }
  sumL := 0;
  sumN := 0;
  sumM := 0;
  for i := 1 to 8 do
    sumL := sumL + l[i]*l[i];
  for i := 1 to 5 do begin
    sumN := sumN + n[i];
    sumM := sumM + m[i];
  end;
  WriteLn('Summa l ', sumL);
  WriteLn('Summa n ', sumN);
  WriteLn('Summa m ', sumM);
  If l[1]*(SumN+SumM) > 0 then
  Begin
    Z1 := SumL/(l[1]*(sumN + sumM));
    WriteLn('Z = ', Z1:10:2)
  End
  else
  Writeln('Delenie na 0');
  ReadLn
End.