помогите пожалуйста с Паскалем.Тема векторы

[Moroka]

1.Дан вектор C(n).Найти max (c1,c1*c2,...,c1*c2*...*cn).
2.Вычислить скалятное произведение векторов

n
X(n),Y(n):S=E x;y;
i=1





Буду очень благодарна,так как вообще не представляю как это делать

[_Dmitry]

Ну, и в чем проблема? В лени? Задачи элементарные
1.

a:=c[1];
max:=a;
for i:=2 to n do
  begin
    a:=a*c[i];
    if a > max then max:=a;
  end;

2.

s:=0;
for i:=1 to n do
  s:=s+x[i]*y[i];