Question

В одномерном массиве состоящем из n вещественных элементов вычислить:
1) номер максимального по модулю элемента массива
2) сумму элементов массива, расположенных после первого положительного элемента
Написать нужно программу на паскале. Это 2 условия должны быть в одной программе выполнятся. Помогите.

Answer 1

// PascalABC.NET 3.3, сборка 1561 от 02.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
  var a:=ArrRandom(ReadInteger('n='),-99,99).ConvertAll(x->real(x/10));
  a.Println;
  var imax:=a.Select(x->Abs(x)).ToArray.IndexMax;
  var ip:=a.FindIndex(x->x>0)+1;
  Writeln('Номер максимального по модулю элемента: ',imax+1);
  Writeln('Сумма элементов после первого положительного: ',a[ip:].Sum:0:1)
end.

Пример
n= 13
-5.9 2.8 -8.2 4.8 1.2 -7.3 6.7 4 -5.8 6.4 2.4 -9.3 -8.6
Номер максимального по модулю элемента: 12
Сумма элементов после первого положительного: -13.7