Pascal. в одномерном массиве, состоящем из n вещественных элементов, вычислить: 1. количество элементов массива, лежащих в диапазоне от a до b. 2. сумму элементов массива, расположенных после максимального элемента. 3. упорядочить элементы массива по убыванию модулей. правило формирования массива: bi=cos(i), где i∈ [1,50].
Внимание! Если программа не работает, обновите версию!
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.