Вычислить количество элементов массива, больших C

begin
  var Z := Range(1,ReadLnInteger('n =')).Select(i->2*i*sin(2*i)).ToArray;
  Write('одномерный массив: Z = ['); Z.Print(', '); WriteLn(']');
  
  var C := ReadLnReal('C =');
  WriteLn('1. Количество элементов больше С = ', Z.Where(i->i>C).Count);
  
  var index := Abs(Z.Min)>Z.Max?Z.IndexMin:Z.IndexMax;
  WriteLn('2. Произведение элементов после максимального по модулю = ', index<Z.Length-1?Z.Where((x,i)->i>index).Aggregate(1.0,(p,x)->p*x).ToString:'нет таких');
  
  var Swaps : Integer;
  repeat
    Swaps := 0;
    for var i := 1 to Z.Length-1 do
      if (Z[i] < 0) and not (Z[i-1] < 0) then
        begin Swaps += 1; Swap(Z[i], Z[i-1]); end;
  until Swaps = 0;
  Write('3. Преобразованный массив: Z = ['); Z.Print(','); WriteLn(']');
  
end.

begin
  var Z := Range(1,ReadLnInteger('n =')).Select(i->2*i*sin(2*i)).ToArray;
  Write('одномерный массив: Z = ['); Z.Print(', '); WriteLn(']');
  
  var C := ReadLnReal('C =');
  WriteLn('1. Количество элементов больше С = ', Z.Count(i -> i > C));
  
  var index := Abs(Z.Min)>Z.Max?Z.IndexMin:Z.IndexMax;
  WriteLn('2. Произведение элементов после максимального по модулю = ', index<Z.Length-1?Z.Where((x,i)->i>index).Aggregate(1.0,(p,x)->p*x).ToString:'нет таких');
  
  Z := Z.OrderBy(v -> Sign(v)).ToArray();
  Write('3. Преобразованный массив: Z = ['); Z.Print(','); WriteLn(']');
end.