Вычислить произведение элементов последовательности

[vladikson]

Уже весь мозг сморщил, не могу понять правильно сделал или нет=( Вузовский курс программирования уже напрочь из головы вылетел=(


То что у меня получилось:

uses crt;
var a:array[1..15] of real;
 b:array[1..15] of real;
var
m,n,i:integer;
max, imax,s: real;
begin
write('введите кол-во элементов массива=');
read(n);
m:=n;
s:=1;
writeln ('massiv a');
for i:=1 to n do 
begin
a[i]:=sin(i);
write (a[i]:6:3,'  ');
end;
writeln ('massiv b');
for i:= 1 to m do
begin
b[i]:=cos(pi+i);
write (b[m]:6:3,'  ');
end;
for i:=1 to n do
begin
s:=s*(a[i]+b[m]);
m:=n-1;
end;
writeln ('произведение = ',s);
max:=a[1];
  for i:=1 to n do 
    begin
{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
      if a[i]>= max then
        begin
          max:=a[i]; imax:=i; 
        end;
    end;
{Печатаем максимальный элемент и его индекс.}
  writeln(max, ' номер: ' ,imax);
end.

[Aleksandr H.]

здесь что-то хромает

for i:=1 to n do
begin
s:=s*(a[i]+b[m]);
m:=n-1;
end;

и как

Вычислить произведение элементов последовательности

относится к

{Если найдется элемент, больший МАХ, то МАХ будет равен этому элементу. Одновременно запоминаем индекс промежуточного максимума.}
if a[i]>= max then
begin
max:=a[i]; imax:=i;
end;
end;
{Печатаем максимальный элемент и его индекс.}
writeln(max, ' номер: ' ,imax);

Уже весь мозг сморщил, не могу понять правильно сделал или нет=(

Я бы сначала в xls сделал и сравнил результат с тем что программа выдала