Question

Дан массив А(6). Найти сумму и количество положительных элементов, расположенных между максимальным и минимальным элементами. На языке Pascal. Пожалуйста помогите срочно надо.​

Answer 1

===== PascalABC.NET =====

begin

 var a := ReadArrReal(6);

 var (i1, i2) := (a.IndexMax, a.IndexMin);

 if i1 > i2 then

   Swap(i1, i2);

 a := a[i1 + 1:i2].Where(p -> p > 0).ToArray;

 Print('Сумма', a.Length, 'элементов равна', a.Sum)

end.