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

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

У тех, кто дал от 1000 ответов, она есть.

Ну и те, кто от них получает сообщение, могут переписываться с ними.

Тогда напишите мне, пожалуйста

Кроме этого, для важных случаем и месседжеры никто не отменял)))

Написал, надеюсь, Вам видно сообщение.

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.