program PascalGuru;
uses crt;
 
type massiv=array[1..100] of real; {инициализация массива}
 
var Z: massiv;             {инициализация переменных}
    i,n,otr1,otr2:integer;
    summa1,summa2:real;
 
begin
write('N= ');  readln(n); {ввод размерности массива}
 
writeln('Vvedite elementy massiva:');
for i:=1 to n do begin
write('Z[',i,']= '); readln(Z[i]); end;  {ввод элементов массива}
clrscr;
writeln('Vot vvedenye vami massiv: ');
for i:=1 to n do write(Z[i]:0:2,', '); {вывод массива на экран}
writeln;
writeln;
 
summa1:=0;  {изначально сумма1 равна 0}
 
for i:=1 to n do
    if odd(i) then summa1:=summa1+Z[i]; {находим сумму массива с нечетными номерами}
 
 
for i:=1 to n do
if Z[i]<0 then begin otr1:=i; break; end; {поиск первого отрицательного элемента}
 
for i:=n downto 1 do
if Z[i]<0 then begin otr2:=i; break; end; {поиск последнего отрицательного элемента}
 
summa2:=0;  {изначально сумма2 равна 0}
for i:=otr1+1 to otr2-1 do summa2:=summa2+Z[i]; {считаем сумму элементов, расположенных между первым и последним отрицательными элементами }
 
writeln;
writeln('Summa 1= ',summa1:0:2);    {вывод суммы1 на экран}
writeln('Summa 2= ',summa2:0:2);    {вывод суммы2 на экран}
 
readln;
end.