Паскаль. Задачка с массивами.

[ProPaL]

Привет, Помогите плз с задачей:

Даны массивы l1, ... , l15 ; m1, ... , m8 .
Определить:
clip_image002.gif ; clip_image0022.gif

[Alex21]

Ну вы хотя бы начните, дальше уж помогу.

[ProPaL]

Я точно не знаю как делать.. вот думаю так начать:

program mass;
var
l, c: array[1..15] of real;
m, d: array[1..8] of real;
s, t, p :real;
i,j:byte;

begin
s:=0;
for i:=1 to 15 do
begin
read(l[i],);
read(m[i]);
s:=s+(l[i]-m[1]);-тут не уверен
p:=l[i];
end;
t:=s\p;
writeln ('t=',t:8:15);

[Alex21]

var
  L   : array[1..15] of real=(1,2,3,4,5,6,7,8,9,10,11,12,13,14,15);
  M   : array[1..8]  of real=(2.1,2.2,2.3,2.4,2.5,2.6,2.7,2.8);
  C   : array[1..15] of real; // искомые массивы
  D   : array[1..8]  of real; // тоже
  i,j : integer;
  sumc: real; // сумма числителя С
  sumd: real; // сумма числителя D

begin
{находим сумму (Li-M1)}
  for i:=1 to 15 do
  begin
    sumc:=sumc+(L[i]-M[1]);
  end;
{Вычисляем С[i]}
  for i:=1 to 15 do
  begin
    C[i]:=sumc/L[i];
    writeln('C[',i,'] = ',C[i]:5:2);
  end;
  writeln;
{находим сумму (Mj^2)}
  for j:=1 to 8 do
  begin
    sumd:=sumd+(sqr(M[j]));
  end;
{Вычисляем D[i]}
  for j:=1 to 8 do
  begin
    D[j]:=M[j]*(sumd/sqr(L[5]));
    writeln('D[',j,'] = ',D[j]:5:2);
  end;
  readln;
end.

[ProPaL]

Спасибо большое! РЕСПЕКТ!