Произведение элементов в тех строках, которые не содержат отрицательных элементов

var
  M, R: array[1..1000] of real;
  i, n, k, i_Otr1, i_Otr2: integer;
  f: boolean;
  S_Nechet, S_Otr: real;
  
begin
  randomize;
  n := 15 + random(100);
  writeln('Вводим случайный массив ', n, ' вещественных чисел:');
  writeln;  
  S_Nechet := 0;
  S_Otr := 0;
  f := true;
  for i := 1 to n do
  begin
    m[i] := 21 * random - 10;
    write('  ', m[i]:0:4);
    if odd(i) then S_Nechet := S_Nechet + m[i];
    if m[i] < 0 then 
      if f then begin i_Otr1 := i; f := false end //первый отрицательный
      else i_Otr2 := i; //последний отрицательный элемент (его номер)
  end;
  writeln;
  writeln;
  writeln(' 1)Сумма элементов массива с нечетными номерами: ', S_Nechet:0:4);
  writeln;
  for i := i_Otr1 to i_Otr2 do S_Otr := S_Otr + m[i];
  writeln(' 2)сумма элементов массива, расположенных между ');
  writeln('   первым и последним отрицательными элементами: ', S_Otr:0:4); 
  k := 0;
  for i := 1 to n do
  begin
    if (abs(m[i]) > 1) then //если модуль элемента больше 1
    begin inc(k); R[k] := m[i] end //то формируем новый массив   
  end;
  writeln;
  writeln(' 3)Выводим сжатый массив:');
  for i := 1 to k do write('  ', R[i]:0:4); //выводим новый массив
end.