Question

ПОМОГИТЕ!!!
PASCAL.
В одномерном массиве, состоящем из n вещественных элементов, вычислить:
1. Количество элементов массива, лежащих в диапазоне от A до B.
2. Сумму элементов массива, расположенных после максимального элемента.
3. Упорядочить элементы массива по убыванию модулей.

Правило формирования массива: Bi=cos(i), где i∈ [1,50].

Answer 1

PascalABC.NET 3.4.0, сборка 1675 от 12.06.2018
Внимание! Если программа не работает, обновите версию!

procedure Println(Self:array of real); extensionmethod;
begin
  Self.Batch(5).foreach(s->
      begin foreach var p in s do Write(p:15:10); Writeln end);
  Writeln(Min(15*(Self.Count div 2),38)*'- ')
end;

begin
  var m:=ArrGen(ReadInteger('n='),i->Cos(i),1); m.Println;
  var (a,b):=ReadReal2('Введите границы A B:');
  Writeln('Число элементов на интервале [',a,',',b,'] равно ',
    m.Where(t->t.Between(a,b)).Count);
  Write('Сумма элементов, расположенных после максимального, равна ');
  var imax:=m.IndexMax;
  (m?[imax+1:].Sum).Println;
  Writeln('Элементы, упорядоченные по убыванию модулей');
  m:=m.OrderByDescending(t->Abs(t)).ToArray; m.Println;
end.