[Pascal] Работа с одномерным массивом

[Offwhite]

Даны действительные числа a1, a2, ... Известно, что a1>0 и что среди a2, a3, ... есть хотя бы одно отрицательное число. Пусть a1, ..., an - члены данной последовательности, предшествующие первому отрицательному члену (n заранее неизвестно). Получить: a1a2+a2a3+...+an-1an+ana1
и (- 1)nan. Помогите пожалуйста. Буду сильно благодарен.

[Вадим Мошев]

Сами что пытались сделать? Есть есть код - покажите.
Если вы хотите, чтобы задачу решили за вас, обратитесь в раздел фриланс: http://www.programmersforum.ru/forumdisplay.php?f=29

[Serge_Bliznykov]

Сообщение от Offwhite

и (- 1)nan.

а это что за ужас?
покажите скриншот с заданием.

[newerow1989]

const n=10;
var a:array[1..n] of integer;
    i,r:integer;
begin
   Randomize;
   For i:=1 to n do
   begin
      a[i]:=-10+Random(21);
      If i=1 then
         a[i]:=Random(11);
      Write(a[i]:2,'  ');
   end;
   Writeln;
   Writeln;
   r:=0;
   For i:=1 to n-1 do
      r:=r+a[i]*a[i+1];
   r:=r+a[n]*a[1];
   Writeln(r);
   Readln;
end.