ПОМОГИТЕ!!! PASCAL. В одномерном массиве, состоящем из n вещественных элементов,...

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.

---

Comments

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

---

Есть маленький фокус такой. Можно открыть файл на C# (с расширением .cs) в среде PascalABC.NET и запустить его. Все откомпилируется и будет работать.

---

Но... для совместимости, в PascalABC.NET можно создавать и выполнять программы в диалектах FreePascal и других паскалей.

---

Надеюсь, а ответил на Ваш вопрос. Нужны подробности - продолжим в личке.

---

Большое спасибо. Но лички на сайте, вроде, уже не существует...

---

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

---

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

---

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

---

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

---

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